about summary refs log blame commit diff stats
path: root/archive/0.vm.arc/tangle.mu
blob: 3e73dd891f766cc2306acc7211c3c7e04e8d67c5 (plain) (tree)
s="s">"LineNr"> 5 </span><span class="Comment">//: needed for the 'run-tests' function.</span> <span id="L6" class="LineNr"> 6 </span><span class="Comment">//:</span> <span id="L7" class="LineNr"> 7 </span><span class="Comment">//: By convention, temporary functions needed by tests will start with</span> <span id="L8" class="LineNr"> 8 </span><span class="Comment">//: '_test-'.</span> <span id="L9" class="LineNr"> 9 </span> <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 &quot;Begin Transforms&quot;)</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='040---tests.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='040---tests.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='010---vm.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='010---vm.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">&quot;== code 0x1\n&quot;</span> <span class="Comment">// code segment</span> <span id="L21" class="LineNr">21 </span> <span class="Constant">&quot;main:\n&quot;</span> <span id="L22" class="LineNr">22 </span> <span class="Constant">&quot; e8/call run-tests/disp32\n&quot;</span> <span class="Comment">// 5 bytes</span> <span id="L23" class="LineNr">23 </span> <span class="Constant">&quot; f4/halt\n&quot;</span> <span class="Comment">// 1 byte</span> <span id="L24" class="LineNr">24 </span> <span class="Constant">&quot;test-foo:\n&quot;</span> <span class="Comment">// offset 7</span> <span id="L25" class="LineNr">25 </span> <span class="Constant">&quot; 01 d8\n&quot;</span> <span class="Comment">// just some unique instruction: add EBX to EAX</span> <span id="L26" class="LineNr">26 </span> <span class="Constant">&quot; c3/return\n&quot;</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="L30" class="LineNr">30 </span> <span class="Constant">&quot;run: 0x00000007 opcode: 01\n&quot;</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="Normal">void</span> <a href='040---tests.cc.html#L34'>create_test_function</a><span class="Delimiter">(</span>program&amp; p<span class="Delimiter">)</span> <span class="Delimiter">{</span> <span id="L35" class="LineNr">35 </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="L36" class="LineNr">36 </span> segment&amp; code = *find<span class="Delimiter">(</span>p<span class="Delimiter">,</span> <span class="Constant">&quot;code&quot;</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">&quot;transform&quot;</span><span class="Delimiter">)</span> &lt;&lt; <span class="Constant">&quot;-- create 'run-tests'&quot;</span> &lt;&lt; end<span class="Delimiter">();</span> <span id="L38" class="LineNr">38 </span> vector&lt;line&gt; 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 &lt; <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="L40" class="LineNr">40 </span> line&amp; 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 &lt; <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="L42" class="LineNr">42 </span> <span class="Normal">const</span> word&amp; 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">&quot;test-&quot;</span><span class="Delimiter">))</span> <span class="Identifier">continue</span><span class="Delimiter">;</span> <span id="L45" class="LineNr">45 </span> string fn = <a href='036labels.cc.html#L263'>drop_last</a><span class="Delimiter">(</span>curr<span class="Delimiter">.</span>data<span class="Delimiter">);</span> <span id="L46" class="LineNr">46 </span> new_insts<span class="Delimiter">.</span>push_back<span class="Delimiter">(</span>call<span class="Delimiter">(</span>fn<span class="Delimiter">));</span> <span id="L47" class="LineNr">47 </span> <span class="Delimiter">}</span> <span id="L48" class="LineNr">48 </span> <span class="Delimiter">}</span> <span id="L49" class="LineNr">49 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>new_insts<span class="Delimiter">.</span>empty<span class="Delimiter">())</span> <span class="Identifier">return</span><span class="Delimiter">;</span> <span class="Comment">// no tests found</span> <span id="L50" class="LineNr">50 </span> code<span class="Delimiter">.</span><a href='011run.cc.html#L113'>lines</a><span class="Delimiter">.</span>push_back<span class="Delimiter">(</span>label<span class="Delimiter">(</span><span class="Constant">&quot;run-tests&quot;</span><span class="Delimiter">));</span> <span id="L51" class="LineNr">51 </span> code<span class="Delimiter">.</span><a href='011run.cc.html#L113'>lines</a><span class="Delimiter">.</span>insert<span class="Delimiter">(</span>code<span class="Delimiter">.</span><a href='011run.cc.html#L113'>lines</a><span class="Delimiter">.</span>end<span class="Delimiter">(),</span> new_insts<span class="Delimiter">.</span>begin<span class="Delimiter">(),</span> new_insts<span class="Delimiter">.</span>end<span class="Delimiter">());</span> <span id="L52" class="LineNr">52 </span> code<span class="Delimiter">.</span><a href='011run.cc.html#L113'>lines</a><span class="Delimiter">.</span>push_back<span class="Delimiter">(</span><a href='040---tests.cc.html#L89'>ret</a><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>string to_string<span class="Delimiter">(</span><span class="Normal">const</span> segment&amp; 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 &lt; <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="L58" class="LineNr">58 </span> <span class="Normal">const</span> line&amp; 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 &lt; <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="L60" class="LineNr">60 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>j &gt; <span class="Constant">0</span><span class="Delimiter">)</span> out &lt;&lt; <span class="Constant">' '</span><span class="Delimiter">;</span> <span id="L61" class="LineNr">61 </span> out &lt;&lt; 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> <span id="L63" class="LineNr">63 </span> out &lt;&lt; <span class="cSpecial">'\n'</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="Identifier">return</span> out<span class="Delimiter">.</span>str<span class="Delimiter">();</span> <span id="L66" class="LineNr">66 </span><span class="Delimiter">}</span> <span id="L67" class="LineNr">67 </span> <span id="L68" class="LineNr">68 </span><a href='011run.cc.html#L121'>line</a> call<span class="Delimiter">(</span>string s<span class="Delimiter">)</span> <span class="Delimiter">{</span> <span id="L69" class="LineNr">69 </span> <a href='011run.cc.html#L121'>line</a> result<span class="Delimiter">;</span> <span id="L70" class="LineNr">70 </span> result<span class="Delimiter">.</span><a href='011run.cc.html#L122'>words</a><span class="Delimiter">.</span>push_back<span class="Delimiter">(</span>call<span class="Delimiter">());</span> <span id="L71" class="LineNr">71 </span> result<span class="Delimiter">.</span><a href='011run.cc.html#L122'>words</a><span class="Delimiter">.</span>push_back<span class="Delimiter">(</span><a href='040---tests.cc.html#L82'>disp32</a><span class="Delimiter">(</span>s<span class="Delimiter">));</span> <span id="L72" class="LineNr">72 </span> <span class="Identifier">return</span> result<span class="Delimiter">;</span> <span id="L73" class="LineNr">73 </span><span class="Delimiter">}</span> <span id="L74" class="LineNr">74 </span> <span id="L75" class="LineNr">75 </span><a href='011run.cc.html#L127'>word</a> call<span class="Delimiter">()</span> <span class="Delimiter">{</span> <span id="L76" class="LineNr">76 </span> <a href='011run.cc.html#L127'>word</a> result<span class="Delimiter">;</span> <span id="L77" class="LineNr">77 </span> result<span class="Delimiter">.</span>data = <span class="Constant">&quot;e8&quot;</span><span class="Delimiter">;</span> <span id="L78" class="LineNr">78 </span> result<span class="Delimiter">.</span>metadata<span class="Delimiter">.</span>push_back<span class="Delimiter">(</span><span class="Constant">&quot;call&quot;</span><span class="Delimiter">);</span> <span id="L79" class="LineNr">79 </span> <span class="Identifier">return</span> result<span class="Delimiter">;</span> <span id="L80" class="LineNr">80 </span><span class="Delimiter">}</span> <span id="L81" class="LineNr">81 </span> <span id="L82" class="LineNr">82 </span><a href='011run.cc.html#L127'>word</a> <a href='040---tests.cc.html#L82'>disp32</a><span class="Delimiter">(</span>string s<span class="Delimiter">)</span> <span class="Delimiter">{</span> <span id="L83" class="LineNr">83 </span> <a href='011run.cc.html#L127'>word</a> result<span class="Delimiter">;</span> <span id="L84" class="LineNr">84 </span> result<span class="Delimiter">.</span>data = s<span class="Delimiter">;</span> <span id="L85" class="LineNr">85 </span> result<span class="Delimiter">.</span>metadata<span class="Delimiter">.</span>push_back<span class="Delimiter">(</span><span class="Constant">&quot;disp32&quot;</span><span class="Delimiter">);</span> <span id="L86" class="LineNr">86 </span> <span class="Identifier">return</span> result<span class="Delimiter">;</span> <span id="L87" class="LineNr">87 </span><span class="Delimiter">}</span> <span id="L88" class="LineNr">88 </span> <span id="L89" class="LineNr">89 </span><a href='011run.cc.html#L121'>line</a> <a href='040---tests.cc.html#L89'>ret</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> <span id="L90" class="LineNr">90 </span> <a href='011run.cc.html#L121'>line</a> result<span class="Delimiter">;</span> <span id="L91" class="LineNr">91 </span> result<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="L92" class="LineNr">92 </span> result<span class="Delimiter">.</span><a href='011run.cc.html#L122'>words</a><span class="Delimiter">.</span>back<span class="Delimiter">().</span>data = <span class="Constant">&quot;c3&quot;</span><span class="Delimiter">;</span> <span id="L93" class="LineNr">93 </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><span class="Constant">&quot;return&quot;</span><span class="Delimiter">);</span> <span id="L94" class="LineNr">94 </span> <span class="Identifier">return</span> result<span class="Delimiter">;</span> <span id="L95" class="LineNr">95 </span><span class="Delimiter">}</span> </pre> </body> </html> <!-- vim: set foldmethod=manual : -->