diff options
Diffstat (limited to 'html/123slice.subx.html')
| -rw-r--r-- | html/123slice.subx.html | 386 |
1 files changed, 190 insertions, 196 deletions
diff --git a/html/123slice.subx.html b/html/123slice.subx.html index 7ad2d84e..8257f816 100644 --- a/html/123slice.subx.html +++ b/html/123slice.subx.html @@ -880,7 +880,7 @@ if ('onhashchange' in window) { <span id="L819" class="LineNr"> 819 </span> 73/jump-if-addr>= $write-slice:loop-end/disp8 <span id="L820" class="LineNr"> 820 </span> <span class="subxComment"># if (out->write >= out->size) abort</span> <span id="L821" class="LineNr"> 821 </span> 39/compare 3/mod/direct 3/rm32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 2/r32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># compare ebx with edx</span> -<span id="L822" class="LineNr"> 822 </span> 7d/jump-if->= $write-slice:<a href='501draw-text.mu.html#L481'>abort</a>/disp8 +<span id="L822" class="LineNr"> 822 </span> 7d/jump-if->= $write-slice:<a href='317abort.subx.html#L5'>abort</a>/disp8 <span id="L823" class="LineNr"> 823 </span> <span class="subxComment"># out->data[out->write] = *in</span> <span id="L824" class="LineNr"> 824 </span> <span class="subxS1Comment"># . AL = *in</span> <span id="L825" class="LineNr"> 825 </span> 31/xor 3/mod/direct 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># clear eax</span> @@ -908,201 +908,195 @@ if ('onhashchange' in window) { <span id="L847" class="LineNr"> 847 </span> 5d/pop-to-ebp <span id="L848" class="LineNr"> 848 </span> c3/return <span id="L849" class="LineNr"> 849 </span> -<span id="L850" class="LineNr"> 850 </span><span class="Constant">$write-slice:<a href='501draw-text.mu.html#L481'>abort</a></span>: -<span id="L851" class="LineNr"> 851 </span> (<a href='501draw-text.mu.html#L258'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> 0 <span class="Constant">"write-slice: out of space"</span> 3 0) <span class="subxComment"># 3=cyan</span> -<span id="L852" class="LineNr"> 852 </span> { -<span id="L853" class="LineNr"> 853 </span> eb/jump <span class="Constant">loop</span>/disp8 -<span id="L854" class="LineNr"> 854 </span> } -<span id="L855" class="LineNr"> 855 </span> <span class="subxComment"># never gets here</span> -<span id="L856" class="LineNr"> 856 </span> -<span id="L857" class="LineNr"> 857 </span><span class="subxTest">test-write-slice</span>: -<span id="L858" class="LineNr"> 858 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L859" class="LineNr"> 859 </span> 55/push-ebp -<span id="L860" class="LineNr"> 860 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> -<span id="L861" class="LineNr"> 861 </span> <span class="subxComment"># setup</span> -<span id="L862" class="LineNr"> 862 </span> <span class="subxS1Comment"># . clear-stream(_test-stream)</span> -<span id="L863" class="LineNr"> 863 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L864" class="LineNr"> 864 </span> 68/push <a href='108write.subx.html#L125'>_test-stream</a>/imm32 -<span id="L865" class="LineNr"> 865 </span> <span class="subxS2Comment"># . . call</span> -<span id="L866" class="LineNr"> 866 </span> e8/call <a href='106stream.subx.html#L20'>clear-stream</a>/disp32 -<span id="L867" class="LineNr"> 867 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L868" class="LineNr"> 868 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L869" class="LineNr"> 869 </span> <span class="subxComment"># (eax..ecx) = "Abc"</span> -<span id="L870" class="LineNr"> 870 </span> b8/copy-to-eax <span class="Constant">"Abc"</span>/imm32 -<span id="L871" class="LineNr"> 871 </span> 8b/copy 0/mod/indirect 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy *eax to ecx</span> -<span id="L872" class="LineNr"> 872 </span> 8d/copy-address 1/mod/*+disp8 4/rm32/sib 0/base/eax 1/index/ecx <span class="Normal"> . </span> 1/r32/ecx 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy eax+ecx+4 to ecx</span> -<span id="L873" class="LineNr"> 873 </span> 05/add-to-eax 4/imm32 -<span id="L874" class="LineNr"> 874 </span> <span class="subxComment"># var slice/ecx: slice = {eax, ecx}</span> -<span id="L875" class="LineNr"> 875 </span> 51/push-ecx -<span id="L876" class="LineNr"> 876 </span> 50/push-eax -<span id="L877" class="LineNr"> 877 </span> 89/copy 3/mod/direct 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ecx</span> -<span id="L878" class="LineNr"> 878 </span> <span class="subxComment"># write-slice(_test-stream, slice)</span> -<span id="L879" class="LineNr"> 879 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L880" class="LineNr"> 880 </span> 51/push-ecx -<span id="L881" class="LineNr"> 881 </span> 68/push <a href='108write.subx.html#L125'>_test-stream</a>/imm32 -<span id="L882" class="LineNr"> 882 </span> <span class="subxS2Comment"># . . call</span> -<span id="L883" class="LineNr"> 883 </span> e8/call <a href='123slice.subx.html#L793'>write-slice</a>/disp32 -<span id="L884" class="LineNr"> 884 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L885" class="LineNr"> 885 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L886" class="LineNr"> 886 </span> <span class="subxComment"># check-stream-equal(_test-stream, "Abc", msg)</span> -<span id="L887" class="LineNr"> 887 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L888" class="LineNr"> 888 </span> 68/push <span class="Constant">"F - test-write-slice"</span>/imm32 -<span id="L889" class="LineNr"> 889 </span> 68/push <span class="Constant">"Abc"</span>/imm32 -<span id="L890" class="LineNr"> 890 </span> 68/push <a href='108write.subx.html#L125'>_test-stream</a>/imm32 -<span id="L891" class="LineNr"> 891 </span> <span class="subxS2Comment"># . . call</span> -<span id="L892" class="LineNr"> 892 </span> e8/call <a href='109stream-equal.subx.html#L194'>check-stream-equal</a>/disp32 -<span id="L893" class="LineNr"> 893 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L894" class="LineNr"> 894 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L895" class="LineNr"> 895 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L896" class="LineNr"> 896 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> -<span id="L897" class="LineNr"> 897 </span> 5d/pop-to-ebp -<span id="L898" class="LineNr"> 898 </span> c3/return -<span id="L899" class="LineNr"> 899 </span> -<span id="L900" class="LineNr"> 900 </span><span class="subxComment"># copy a slice into a new (dynamically allocated) string</span> -<span id="L901" class="LineNr"> 901 </span><span class="subxFunction">slice-to-string</span>: <span class="subxComment"># ad: (addr allocation-descriptor), in: (addr slice), out: (addr handle array byte)</span> -<span id="L902" class="LineNr"> 902 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L903" class="LineNr"> 903 </span> 55/push-ebp -<span id="L904" class="LineNr"> 904 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> -<span id="L905" class="LineNr"> 905 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L906" class="LineNr"> 906 </span> 50/push-eax -<span id="L907" class="LineNr"> 907 </span> 51/push-ecx -<span id="L908" class="LineNr"> 908 </span> 52/push-edx -<span id="L909" class="LineNr"> 909 </span> 53/push-ebx -<span id="L910" class="LineNr"> 910 </span> 56/push-esi -<span id="L911" class="LineNr"> 911 </span> <span class="subxComment"># esi = in</span> -<span id="L912" class="LineNr"> 912 </span> 8b/copy 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 6/r32/esi 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ebp+12) to esi</span> -<span id="L913" class="LineNr"> 913 </span> <span class="subxComment"># var curr/edx: (addr byte) = in->start</span> -<span id="L914" class="LineNr"> 914 </span> 8b/copy 0/mod/indirect 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 2/r32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy *esi to edx</span> -<span id="L915" class="LineNr"> 915 </span> <span class="subxComment"># var max/ebx: (addr byte) = in->end</span> -<span id="L916" class="LineNr"> 916 </span> 8b/copy 1/mod/*+disp8 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 3/r32/ebx 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(esi+4) to ebx</span> -<span id="L917" class="LineNr"> 917 </span> <span class="subxComment"># var size/ecx: int = max - curr + 4 # total size of output string (including the initial 'size' field)</span> -<span id="L918" class="LineNr"> 918 </span> 89/copy 3/mod/direct 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 3/r32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebx to ecx</span> -<span id="L919" class="LineNr"> 919 </span> 29/subtract 3/mod/direct 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 2/r32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># subtract edx from ecx</span> -<span id="L920" class="LineNr"> 920 </span> 81 0/subop/add 3/mod/direct 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to ecx</span> -<span id="L921" class="LineNr"> 921 </span> <span class="subxComment"># allocate(ad, size, out)</span> -<span id="L922" class="LineNr"> 922 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L923" class="LineNr"> 923 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x10/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+16)</span> -<span id="L924" class="LineNr"> 924 </span> 51/push-ecx -<span id="L925" class="LineNr"> 925 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+8)</span> -<span id="L926" class="LineNr"> 926 </span> <span class="subxS2Comment"># . . call</span> -<span id="L927" class="LineNr"> 927 </span> e8/call <a href='120allocate.subx.html#L43'>allocate</a>/disp32 -<span id="L928" class="LineNr"> 928 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L929" class="LineNr"> 929 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L930" class="LineNr"> 930 </span> <span class="subxComment"># eax = out->payload</span> -<span id="L931" class="LineNr"> 931 </span> 8b/copy 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax 0x10/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ebp+16) to eax</span> -<span id="L932" class="LineNr"> 932 </span> 8b/copy 1/mod/*+disp8 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(eax+4) to eax</span> -<span id="L933" class="LineNr"> 933 </span> <span class="subxComment"># skip payload->allocid</span> -<span id="L934" class="LineNr"> 934 </span> 05/add-to-eax 4/imm32 -<span id="L935" class="LineNr"> 935 </span> <span class="subxComment"># if (eax == 0) abort</span> -<span id="L936" class="LineNr"> 936 </span> 3d/compare-eax-and 0/imm32 -<span id="L937" class="LineNr"> 937 </span> 74/jump-if-= $slice-to-string:<a href='501draw-text.mu.html#L481'>abort</a>/disp8 -<span id="L938" class="LineNr"> 938 </span> <span class="subxComment"># out->size = size-4</span> -<span id="L939" class="LineNr"> 939 </span> 89/copy 0/mod/indirect 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ecx to *eax</span> -<span id="L940" class="LineNr"> 940 </span> 81 5/subop/subtract 0/mod/indirect 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># subtract 4 from *eax</span> -<span id="L941" class="LineNr"> 941 </span> <span class="subxComment"># save out</span> -<span id="L942" class="LineNr"> 942 </span> 50/push-eax -<span id="L943" class="LineNr"> 943 </span><span class="Constant">$slice-to-string:initialize</span>: -<span id="L944" class="LineNr"> 944 </span> <span class="subxComment"># eax = _append-4(eax+4, eax+size, curr, max) # clobbering ecx</span> -<span id="L945" class="LineNr"> 945 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L946" class="LineNr"> 946 </span> 53/push-ebx -<span id="L947" class="LineNr"> 947 </span> 52/push-edx -<span id="L948" class="LineNr"> 948 </span> <span class="subxS2Comment"># . . push eax+size (clobbering ecx)</span> -<span id="L949" class="LineNr"> 949 </span> 01/add 3/mod/direct 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># add eax to ecx</span> -<span id="L950" class="LineNr"> 950 </span> 51/push-ecx -<span id="L951" class="LineNr"> 951 </span> <span class="subxS2Comment"># . . push eax+4 (clobbering eax)</span> -<span id="L952" class="LineNr"> 952 </span> 81 0/subop/add 3/mod/direct 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to eax</span> -<span id="L953" class="LineNr"> 953 </span> 50/push-eax -<span id="L954" class="LineNr"> 954 </span> <span class="subxS2Comment"># . . call</span> -<span id="L955" class="LineNr"> 955 </span> e8/call <a href='108write.subx.html#L171'>_append-4</a>/disp32 -<span id="L956" class="LineNr"> 956 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L957" class="LineNr"> 957 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x10/imm32 <span class="subxComment"># add to esp</span> -<span id="L958" class="LineNr"> 958 </span> <span class="subxComment"># restore out (assumes _append-4 can't error)</span> -<span id="L959" class="LineNr"> 959 </span> 58/pop-to-eax -<span id="L960" class="LineNr"> 960 </span><span class="Constant">$slice-to-string:end</span>: -<span id="L961" class="LineNr"> 961 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L962" class="LineNr"> 962 </span> 5e/pop-to-esi -<span id="L963" class="LineNr"> 963 </span> 5b/pop-to-ebx -<span id="L964" class="LineNr"> 964 </span> 5a/pop-to-edx -<span id="L965" class="LineNr"> 965 </span> 59/pop-to-ecx -<span id="L966" class="LineNr"> 966 </span> 58/pop-to-eax -<span id="L967" class="LineNr"> 967 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L968" class="LineNr"> 968 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> -<span id="L969" class="LineNr"> 969 </span> 5d/pop-to-ebp -<span id="L970" class="LineNr"> 970 </span> c3/return -<span id="L971" class="LineNr"> 971 </span> -<span id="L972" class="LineNr"> 972 </span><span class="Constant">$slice-to-string:<a href='501draw-text.mu.html#L481'>abort</a></span>: -<span id="L973" class="LineNr"> 973 </span> (<a href='501draw-text.mu.html#L258'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> 0 <span class="Constant">"slice-to-string: out of space\n"</span> 3 0) <span class="subxComment"># 3=cyan</span> -<span id="L974" class="LineNr"> 974 </span> { -<span id="L975" class="LineNr"> 975 </span> eb/jump <span class="Constant">loop</span>/disp8 -<span id="L976" class="LineNr"> 976 </span> } -<span id="L977" class="LineNr"> 977 </span> <span class="subxComment"># never gets here</span> -<span id="L978" class="LineNr"> 978 </span> -<span id="L979" class="LineNr"> 979 </span><span class="subxTest">test-slice-to-string</span>: -<span id="L980" class="LineNr"> 980 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L981" class="LineNr"> 981 </span> 55/push-ebp -<span id="L982" class="LineNr"> 982 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> -<span id="L983" class="LineNr"> 983 </span> <span class="subxComment"># var ad/edx: allocation-descriptor containing 16 bytes</span> -<span id="L984" class="LineNr"> 984 </span> <span class="subxS1Comment"># . var end/ecx: (addr byte)</span> -<span id="L985" class="LineNr"> 985 </span> 89/<- %ecx 4/r32/esp -<span id="L986" class="LineNr"> 986 </span> 81 5/subop/subtract %esp 0x10/imm32 -<span id="L987" class="LineNr"> 987 </span> <span class="subxS1Comment"># . var start/edx: (addr byte) = end - 0x10</span> -<span id="L988" class="LineNr"> 988 </span> 89/<- %edx 4/r32/esp -<span id="L989" class="LineNr"> 989 </span> <span class="subxS1Comment"># . ad = {start, end}</span> -<span id="L990" class="LineNr"> 990 </span> 51/push-ecx -<span id="L991" class="LineNr"> 991 </span> 52/push-edx -<span id="L992" class="LineNr"> 992 </span> 89/copy 3/mod/direct 2/rm32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to edx</span> -<span id="L993" class="LineNr"> 993 </span> <span class="subxComment"># (eax..ecx) = "Abc"</span> -<span id="L994" class="LineNr"> 994 </span> b8/copy-to-eax <span class="Constant">"Abc"</span>/imm32 -<span id="L995" class="LineNr"> 995 </span> 8b/copy 0/mod/indirect 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy *eax to ecx</span> -<span id="L996" class="LineNr"> 996 </span> 8d/copy-address 1/mod/*+disp8 4/rm32/sib 0/base/eax 1/index/ecx <span class="Normal"> . </span> 1/r32/ecx 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy eax+ecx+4 to ecx</span> -<span id="L997" class="LineNr"> 997 </span> 05/add-to-eax 4/imm32 -<span id="L998" class="LineNr"> 998 </span> <span class="subxComment"># var slice/ecx: slice = {eax, ecx}</span> -<span id="L999" class="LineNr"> 999 </span> 51/push-ecx -<span id="L1000" class="LineNr">1000 </span> 50/push-eax -<span id="L1001" class="LineNr">1001 </span> 89/copy 3/mod/direct 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ecx</span> -<span id="L1002" class="LineNr">1002 </span> <span class="subxComment"># var h/ebx: (handle array byte)</span> -<span id="L1003" class="LineNr">1003 </span> 68/push 0/imm32 -<span id="L1004" class="LineNr">1004 </span> 68/push 0/imm32 -<span id="L1005" class="LineNr">1005 </span> 89/copy 3/mod/direct 3/rm32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebx</span> -<span id="L1006" class="LineNr">1006 </span> <span class="subxComment"># slice-to-string(ad, slice, h)</span> -<span id="L1007" class="LineNr">1007 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1008" class="LineNr">1008 </span> 53/push-ebx -<span id="L1009" class="LineNr">1009 </span> 51/push-ecx -<span id="L1010" class="LineNr">1010 </span> 52/push-edx -<span id="L1011" class="LineNr">1011 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1012" class="LineNr">1012 </span> e8/call <a href='123slice.subx.html#L901'>slice-to-string</a>/disp32 -<span id="L1013" class="LineNr">1013 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1014" class="LineNr">1014 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L1015" class="LineNr">1015 </span> <span class="subxComment"># eax = h->payload</span> -<span id="L1016" class="LineNr">1016 </span> 8b/copy 1/mod/*+disp8 3/rm32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ebx+4) to eax</span> -<span id="L1017" class="LineNr">1017 </span> <span class="subxComment"># skip payload->allocid</span> -<span id="L1018" class="LineNr">1018 </span> 05/add-to-eax 4/imm32 -<span id="L1019" class="Folded">1019 </span><span class="Folded">+-- 26 lines: #? # dump eax ---------------------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L1045" class="LineNr">1045 </span> <span class="subxComment"># eax = string-equal?(eax, "Abc")</span> -<span id="L1046" class="LineNr">1046 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1047" class="LineNr">1047 </span> 68/push <span class="Constant">"Abc"</span>/imm32 -<span id="L1048" class="LineNr">1048 </span> 50/push-eax -<span id="L1049" class="LineNr">1049 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1050" class="LineNr">1050 </span> e8/call <a href='105string-equal.subx.html#L8'>string-equal?</a>/disp32 -<span id="L1051" class="LineNr">1051 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1052" class="LineNr">1052 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L1053" class="LineNr">1053 </span> <span class="subxComment"># check-ints-equal(eax, 1, msg)</span> -<span id="L1054" class="LineNr">1054 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1055" class="LineNr">1055 </span> 68/push <span class="Constant">"F - test-slice-to-string"</span>/imm32 -<span id="L1056" class="LineNr">1056 </span> 68/push 1/imm32/true -<span id="L1057" class="LineNr">1057 </span> 50/push-eax -<span id="L1058" class="LineNr">1058 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1059" class="LineNr">1059 </span> e8/call <a href='502test.mu.html#L2'>check-ints-equal</a>/disp32 -<span id="L1060" class="LineNr">1060 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1061" class="LineNr">1061 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L1062" class="LineNr">1062 </span> <span class="subxS1Comment"># . reclaim locals</span> -<span id="L1063" class="LineNr">1063 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x18/imm32 <span class="subxComment"># add to esp</span> -<span id="L1064" class="LineNr">1064 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L1065" class="LineNr">1065 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> -<span id="L1066" class="LineNr">1066 </span> 5d/pop-to-ebp -<span id="L1067" class="LineNr">1067 </span> c3/return -<span id="L1068" class="LineNr">1068 </span> -<span id="L1069" class="LineNr">1069 </span><span class="subxS2Comment"># . . vim:nowrap:textwidth=0</span> +<span id="L850" class="LineNr"> 850 </span><span class="Constant">$write-slice:<a href='317abort.subx.html#L5'>abort</a></span>: +<span id="L851" class="LineNr"> 851 </span> (<a href='317abort.subx.html#L5'>abort</a> <span class="Constant">"write-slice: out of space"</span>) +<span id="L852" class="LineNr"> 852 </span> <span class="subxComment"># never gets here</span> +<span id="L853" class="LineNr"> 853 </span> +<span id="L854" class="LineNr"> 854 </span><span class="subxTest">test-write-slice</span>: +<span id="L855" class="LineNr"> 855 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L856" class="LineNr"> 856 </span> 55/push-ebp +<span id="L857" class="LineNr"> 857 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> +<span id="L858" class="LineNr"> 858 </span> <span class="subxComment"># setup</span> +<span id="L859" class="LineNr"> 859 </span> <span class="subxS1Comment"># . clear-stream(_test-stream)</span> +<span id="L860" class="LineNr"> 860 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L861" class="LineNr"> 861 </span> 68/push <a href='108write.subx.html#L125'>_test-stream</a>/imm32 +<span id="L862" class="LineNr"> 862 </span> <span class="subxS2Comment"># . . call</span> +<span id="L863" class="LineNr"> 863 </span> e8/call <a href='106stream.subx.html#L20'>clear-stream</a>/disp32 +<span id="L864" class="LineNr"> 864 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L865" class="LineNr"> 865 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L866" class="LineNr"> 866 </span> <span class="subxComment"># (eax..ecx) = "Abc"</span> +<span id="L867" class="LineNr"> 867 </span> b8/copy-to-eax <span class="Constant">"Abc"</span>/imm32 +<span id="L868" class="LineNr"> 868 </span> 8b/copy 0/mod/indirect 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy *eax to ecx</span> +<span id="L869" class="LineNr"> 869 </span> 8d/copy-address 1/mod/*+disp8 4/rm32/sib 0/base/eax 1/index/ecx <span class="Normal"> . </span> 1/r32/ecx 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy eax+ecx+4 to ecx</span> +<span id="L870" class="LineNr"> 870 </span> 05/add-to-eax 4/imm32 +<span id="L871" class="LineNr"> 871 </span> <span class="subxComment"># var slice/ecx: slice = {eax, ecx}</span> +<span id="L872" class="LineNr"> 872 </span> 51/push-ecx +<span id="L873" class="LineNr"> 873 </span> 50/push-eax +<span id="L874" class="LineNr"> 874 </span> 89/copy 3/mod/direct 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ecx</span> +<span id="L875" class="LineNr"> 875 </span> <span class="subxComment"># write-slice(_test-stream, slice)</span> +<span id="L876" class="LineNr"> 876 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L877" class="LineNr"> 877 </span> 51/push-ecx +<span id="L878" class="LineNr"> 878 </span> 68/push <a href='108write.subx.html#L125'>_test-stream</a>/imm32 +<span id="L879" class="LineNr"> 879 </span> <span class="subxS2Comment"># . . call</span> +<span id="L880" class="LineNr"> 880 </span> e8/call <a href='123slice.subx.html#L793'>write-slice</a>/disp32 +<span id="L881" class="LineNr"> 881 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L882" class="LineNr"> 882 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L883" class="LineNr"> 883 </span> <span class="subxComment"># check-stream-equal(_test-stream, "Abc", msg)</span> +<span id="L884" class="LineNr"> 884 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L885" class="LineNr"> 885 </span> 68/push <span class="Constant">"F - test-write-slice"</span>/imm32 +<span id="L886" class="LineNr"> 886 </span> 68/push <span class="Constant">"Abc"</span>/imm32 +<span id="L887" class="LineNr"> 887 </span> 68/push <a href='108write.subx.html#L125'>_test-stream</a>/imm32 +<span id="L888" class="LineNr"> 888 </span> <span class="subxS2Comment"># . . call</span> +<span id="L889" class="LineNr"> 889 </span> e8/call <a href='109stream-equal.subx.html#L194'>check-stream-equal</a>/disp32 +<span id="L890" class="LineNr"> 890 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L891" class="LineNr"> 891 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L892" class="LineNr"> 892 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L893" class="LineNr"> 893 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> +<span id="L894" class="LineNr"> 894 </span> 5d/pop-to-ebp +<span id="L895" class="LineNr"> 895 </span> c3/return +<span id="L896" class="LineNr"> 896 </span> +<span id="L897" class="LineNr"> 897 </span><span class="subxComment"># copy a slice into a new (dynamically allocated) string</span> +<span id="L898" class="LineNr"> 898 </span><span class="subxFunction">slice-to-string</span>: <span class="subxComment"># ad: (addr allocation-descriptor), in: (addr slice), out: (addr handle array byte)</span> +<span id="L899" class="LineNr"> 899 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L900" class="LineNr"> 900 </span> 55/push-ebp +<span id="L901" class="LineNr"> 901 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> +<span id="L902" class="LineNr"> 902 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L903" class="LineNr"> 903 </span> 50/push-eax +<span id="L904" class="LineNr"> 904 </span> 51/push-ecx +<span id="L905" class="LineNr"> 905 </span> 52/push-edx +<span id="L906" class="LineNr"> 906 </span> 53/push-ebx +<span id="L907" class="LineNr"> 907 </span> 56/push-esi +<span id="L908" class="LineNr"> 908 </span> <span class="subxComment"># esi = in</span> +<span id="L909" class="LineNr"> 909 </span> 8b/copy 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 6/r32/esi 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ebp+12) to esi</span> +<span id="L910" class="LineNr"> 910 </span> <span class="subxComment"># var curr/edx: (addr byte) = in->start</span> +<span id="L911" class="LineNr"> 911 </span> 8b/copy 0/mod/indirect 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 2/r32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy *esi to edx</span> +<span id="L912" class="LineNr"> 912 </span> <span class="subxComment"># var max/ebx: (addr byte) = in->end</span> +<span id="L913" class="LineNr"> 913 </span> 8b/copy 1/mod/*+disp8 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 3/r32/ebx 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(esi+4) to ebx</span> +<span id="L914" class="LineNr"> 914 </span> <span class="subxComment"># var size/ecx: int = max - curr + 4 # total size of output string (including the initial 'size' field)</span> +<span id="L915" class="LineNr"> 915 </span> 89/copy 3/mod/direct 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 3/r32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebx to ecx</span> +<span id="L916" class="LineNr"> 916 </span> 29/subtract 3/mod/direct 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 2/r32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># subtract edx from ecx</span> +<span id="L917" class="LineNr"> 917 </span> 81 0/subop/add 3/mod/direct 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to ecx</span> +<span id="L918" class="LineNr"> 918 </span> <span class="subxComment"># allocate(ad, size, out)</span> +<span id="L919" class="LineNr"> 919 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L920" class="LineNr"> 920 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x10/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+16)</span> +<span id="L921" class="LineNr"> 921 </span> 51/push-ecx +<span id="L922" class="LineNr"> 922 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+8)</span> +<span id="L923" class="LineNr"> 923 </span> <span class="subxS2Comment"># . . call</span> +<span id="L924" class="LineNr"> 924 </span> e8/call <a href='120allocate.subx.html#L43'>allocate</a>/disp32 +<span id="L925" class="LineNr"> 925 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L926" class="LineNr"> 926 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L927" class="LineNr"> 927 </span> <span class="subxComment"># eax = out->payload</span> +<span id="L928" class="LineNr"> 928 </span> 8b/copy 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax 0x10/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ebp+16) to eax</span> +<span id="L929" class="LineNr"> 929 </span> 8b/copy 1/mod/*+disp8 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(eax+4) to eax</span> +<span id="L930" class="LineNr"> 930 </span> <span class="subxComment"># skip payload->allocid</span> +<span id="L931" class="LineNr"> 931 </span> 05/add-to-eax 4/imm32 +<span id="L932" class="LineNr"> 932 </span> <span class="subxComment"># if (eax == 0) abort</span> +<span id="L933" class="LineNr"> 933 </span> 3d/compare-eax-and 0/imm32 +<span id="L934" class="LineNr"> 934 </span> 74/jump-if-= $slice-to-string:<a href='317abort.subx.html#L5'>abort</a>/disp8 +<span id="L935" class="LineNr"> 935 </span> <span class="subxComment"># out->size = size-4</span> +<span id="L936" class="LineNr"> 936 </span> 89/copy 0/mod/indirect 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ecx to *eax</span> +<span id="L937" class="LineNr"> 937 </span> 81 5/subop/subtract 0/mod/indirect 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># subtract 4 from *eax</span> +<span id="L938" class="LineNr"> 938 </span> <span class="subxComment"># save out</span> +<span id="L939" class="LineNr"> 939 </span> 50/push-eax +<span id="L940" class="LineNr"> 940 </span><span class="Constant">$slice-to-string:initialize</span>: +<span id="L941" class="LineNr"> 941 </span> <span class="subxComment"># eax = _append-4(eax+4, eax+size, curr, max) # clobbering ecx</span> +<span id="L942" class="LineNr"> 942 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L943" class="LineNr"> 943 </span> 53/push-ebx +<span id="L944" class="LineNr"> 944 </span> 52/push-edx +<span id="L945" class="LineNr"> 945 </span> <span class="subxS2Comment"># . . push eax+size (clobbering ecx)</span> +<span id="L946" class="LineNr"> 946 </span> 01/add 3/mod/direct 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># add eax to ecx</span> +<span id="L947" class="LineNr"> 947 </span> 51/push-ecx +<span id="L948" class="LineNr"> 948 </span> <span class="subxS2Comment"># . . push eax+4 (clobbering eax)</span> +<span id="L949" class="LineNr"> 949 </span> 81 0/subop/add 3/mod/direct 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to eax</span> +<span id="L950" class="LineNr"> 950 </span> 50/push-eax +<span id="L951" class="LineNr"> 951 </span> <span class="subxS2Comment"># . . call</span> +<span id="L952" class="LineNr"> 952 </span> e8/call <a href='108write.subx.html#L171'>_append-4</a>/disp32 +<span id="L953" class="LineNr"> 953 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L954" class="LineNr"> 954 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x10/imm32 <span class="subxComment"># add to esp</span> +<span id="L955" class="LineNr"> 955 </span> <span class="subxComment"># restore out (assumes _append-4 can't error)</span> +<span id="L956" class="LineNr"> 956 </span> 58/pop-to-eax +<span id="L957" class="LineNr"> 957 </span><span class="Constant">$slice-to-string:end</span>: +<span id="L958" class="LineNr"> 958 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L959" class="LineNr"> 959 </span> 5e/pop-to-esi +<span id="L960" class="LineNr"> 960 </span> 5b/pop-to-ebx +<span id="L961" class="LineNr"> 961 </span> 5a/pop-to-edx +<span id="L962" class="LineNr"> 962 </span> 59/pop-to-ecx +<span id="L963" class="LineNr"> 963 </span> 58/pop-to-eax +<span id="L964" class="LineNr"> 964 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L965" class="LineNr"> 965 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> +<span id="L966" class="LineNr"> 966 </span> 5d/pop-to-ebp +<span id="L967" class="LineNr"> 967 </span> c3/return +<span id="L968" class="LineNr"> 968 </span> +<span id="L969" class="LineNr"> 969 </span><span class="Constant">$slice-to-string:<a href='317abort.subx.html#L5'>abort</a></span>: +<span id="L970" class="LineNr"> 970 </span> (<a href='317abort.subx.html#L5'>abort</a> <span class="Constant">"slice-to-string: out of space"</span>) +<span id="L971" class="LineNr"> 971 </span> <span class="subxComment"># never gets here</span> +<span id="L972" class="LineNr"> 972 </span> +<span id="L973" class="LineNr"> 973 </span><span class="subxTest">test-slice-to-string</span>: +<span id="L974" class="LineNr"> 974 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L975" class="LineNr"> 975 </span> 55/push-ebp +<span id="L976" class="LineNr"> 976 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> +<span id="L977" class="LineNr"> 977 </span> <span class="subxComment"># var ad/edx: allocation-descriptor containing 16 bytes</span> +<span id="L978" class="LineNr"> 978 </span> <span class="subxS1Comment"># . var end/ecx: (addr byte)</span> +<span id="L979" class="LineNr"> 979 </span> 89/<- %ecx 4/r32/esp +<span id="L980" class="LineNr"> 980 </span> 81 5/subop/subtract %esp 0x10/imm32 +<span id="L981" class="LineNr"> 981 </span> <span class="subxS1Comment"># . var start/edx: (addr byte) = end - 0x10</span> +<span id="L982" class="LineNr"> 982 </span> 89/<- %edx 4/r32/esp +<span id="L983" class="LineNr"> 983 </span> <span class="subxS1Comment"># . ad = {start, end}</span> +<span id="L984" class="LineNr"> 984 </span> 51/push-ecx +<span id="L985" class="LineNr"> 985 </span> 52/push-edx +<span id="L986" class="LineNr"> 986 </span> 89/copy 3/mod/direct 2/rm32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to edx</span> +<span id="L987" class="LineNr"> 987 </span> <span class="subxComment"># (eax..ecx) = "Abc"</span> +<span id="L988" class="LineNr"> 988 </span> b8/copy-to-eax <span class="Constant">"Abc"</span>/imm32 +<span id="L989" class="LineNr"> 989 </span> 8b/copy 0/mod/indirect 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy *eax to ecx</span> +<span id="L990" class="LineNr"> 990 </span> 8d/copy-address 1/mod/*+disp8 4/rm32/sib 0/base/eax 1/index/ecx <span class="Normal"> . </span> 1/r32/ecx 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy eax+ecx+4 to ecx</span> +<span id="L991" class="LineNr"> 991 </span> 05/add-to-eax 4/imm32 +<span id="L992" class="LineNr"> 992 </span> <span class="subxComment"># var slice/ecx: slice = {eax, ecx}</span> +<span id="L993" class="LineNr"> 993 </span> 51/push-ecx +<span id="L994" class="LineNr"> 994 </span> 50/push-eax +<span id="L995" class="LineNr"> 995 </span> 89/copy 3/mod/direct 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ecx</span> +<span id="L996" class="LineNr"> 996 </span> <span class="subxComment"># var h/ebx: (handle array byte)</span> +<span id="L997" class="LineNr"> 997 </span> 68/push 0/imm32 +<span id="L998" class="LineNr"> 998 </span> 68/push 0/imm32 +<span id="L999" class="LineNr"> 999 </span> 89/copy 3/mod/direct 3/rm32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebx</span> +<span id="L1000" class="LineNr">1000 </span> <span class="subxComment"># slice-to-string(ad, slice, h)</span> +<span id="L1001" class="LineNr">1001 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1002" class="LineNr">1002 </span> 53/push-ebx +<span id="L1003" class="LineNr">1003 </span> 51/push-ecx +<span id="L1004" class="LineNr">1004 </span> 52/push-edx +<span id="L1005" class="LineNr">1005 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1006" class="LineNr">1006 </span> e8/call <a href='123slice.subx.html#L898'>slice-to-string</a>/disp32 +<span id="L1007" class="LineNr">1007 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1008" class="LineNr">1008 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L1009" class="LineNr">1009 </span> <span class="subxComment"># eax = h->payload</span> +<span id="L1010" class="LineNr">1010 </span> 8b/copy 1/mod/*+disp8 3/rm32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ebx+4) to eax</span> +<span id="L1011" class="LineNr">1011 </span> <span class="subxComment"># skip payload->allocid</span> +<span id="L1012" class="LineNr">1012 </span> 05/add-to-eax 4/imm32 +<span id="L1013" class="Folded">1013 </span><span class="Folded">+-- 26 lines: #? # dump eax ---------------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L1039" class="LineNr">1039 </span> <span class="subxComment"># eax = string-equal?(eax, "Abc")</span> +<span id="L1040" class="LineNr">1040 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1041" class="LineNr">1041 </span> 68/push <span class="Constant">"Abc"</span>/imm32 +<span id="L1042" class="LineNr">1042 </span> 50/push-eax +<span id="L1043" class="LineNr">1043 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1044" class="LineNr">1044 </span> e8/call <a href='105string-equal.subx.html#L8'>string-equal?</a>/disp32 +<span id="L1045" class="LineNr">1045 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1046" class="LineNr">1046 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L1047" class="LineNr">1047 </span> <span class="subxComment"># check-ints-equal(eax, 1, msg)</span> +<span id="L1048" class="LineNr">1048 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1049" class="LineNr">1049 </span> 68/push <span class="Constant">"F - test-slice-to-string"</span>/imm32 +<span id="L1050" class="LineNr">1050 </span> 68/push 1/imm32/true +<span id="L1051" class="LineNr">1051 </span> 50/push-eax +<span id="L1052" class="LineNr">1052 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1053" class="LineNr">1053 </span> e8/call <a href='502test.mu.html#L2'>check-ints-equal</a>/disp32 +<span id="L1054" class="LineNr">1054 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1055" class="LineNr">1055 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L1056" class="LineNr">1056 </span> <span class="subxS1Comment"># . reclaim locals</span> +<span id="L1057" class="LineNr">1057 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x18/imm32 <span class="subxComment"># add to esp</span> +<span id="L1058" class="LineNr">1058 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L1059" class="LineNr">1059 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> +<span id="L1060" class="LineNr">1060 </span> 5d/pop-to-ebp +<span id="L1061" class="LineNr">1061 </span> c3/return +<span id="L1062" class="LineNr">1062 </span> +<span id="L1063" class="LineNr">1063 </span><span class="subxS2Comment"># . . vim:nowrap:textwidth=0</span> </pre> </body> </html> |