slack: one more corner case during import - mu - Soul of a tiny new machine. More thorough tests → More comprehensible and rewrite-friendly software → More resilient society.

diff options

author	Kartik K. Agaram <vc@akkartik.com>	2021-11-09 19:57:53 -0800
committer	Kartik K. Agaram <vc@akkartik.com>	2021-11-09 19:57:53 -0800
commit	b10bbc3a51801345c68fdfbe0eff1700451c7be5 (patch)
tree	570e75fa068ec0b4706ac62cbfa369ea0f16c966 /shell/read.mu
parent	1f9b16680f1190a7be4098d61ed2ef74b1906b79 (diff)
download	mu-b10bbc3a51801345c68fdfbe0eff1700451c7be5.tar.gz

slack: one more corner case during import

Diffstat (limited to 'shell/read.mu')

0 files changed, 0 insertions, 0 deletions

<!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 - 082slurp.subx</title> <meta name="Generator" content="Vim/8.1"> <meta name="plugin-version" content="vim8.1_v1"> <meta name="syntax" content="none"> <meta name="settings" content="number_lines,use_css,no_foldcolumn,expand_tabs,line_ids,prevent_copy="> <meta name="colorscheme" content="minimal-light"> <style type="text/css">  </style> <script type='text/javascript'>  </script> </head> <body onload='JumpToLine();'> <a href='https://github.com/akkartik/mu/blob/master/082slurp.subx'>https://github.com/akkartik/mu/blob/master/082slurp.subx</a> <pre id='vimCodeElement'> 1 == code 2 # instruction effective address register displacement immediate 3 # . op subop mod rm32 base index scale r32 4 # . 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 5 6 # read all bytes from 'f' and store them into 's' 7 # abort if 's' is too small 8 slurp: # f: (addr buffered-file), s: (addr stream byte) 9 # pseudocode: 10 # while true 11 # if (s->write >= s->length) abort 12 # if (f->read >= f->write) populate stream from file 13 # if (f->write == 0) break 14 # AL = f->data[f->read] 15 # s->data[s->write] = AL 16 # ++f->read 17 # ++s->write 18 # . prologue 19 55/push-ebp 20 89/copy 3/mod/direct 5/rm32/ebp . . . 4/r32/esp . . # copy esp to ebp 21 # . save registers 22 50/push-eax 23 51/push-ecx 24 52/push-edx 25 56/push-esi 26 57/push-edi 27 # esi = f 28 8b/copy 1/mod/*+disp8 5/rm32/ebp . . . 6/r32/esi 8/disp8 . # copy *(ebp+8) to esi 29 # ecx = f->read 30 8b/copy 1/mod/*+disp8 6/rm32/esi . . . 1/r32/ecx 8/disp8 . # copy *(esi+8) to ecx 31 # edi = s 32 8b/copy 1/mod/*+disp8 5/rm32/ebp . . . 7/r32/edi 0xc/disp8 . # copy *(ebp+12) to edi 33 # edx = s->write 34 8b/copy 0/mod/indirect 7/rm32/edi . . . 2/r32/edx . . # copy *edi to edx 35 $slurp:loop: 36 # if (s->write >= s->length) abort 37 3b/compare 1/mod/*+disp8 7/rm32/edi . . . 2/r32/edx 8/disp8 . # compare edx with *(edi+8) 38 7d/jump-if->= $slurp:abort/disp8 39 # if (f->read >= f->write) populate stream from file 40 3b/compare 1/mod/*+disp8 6/rm32/esi . . . 1/r32/ecx 4/disp8 . # compare ecx with *(esi+4) 41 7c/jump-if-< $slurp:from-stream/disp8 42 # . clear-stream(stream = f+4) 43 # . . push args 44 8d/copy-address 1/mod/*+disp8 6/rm32/esi . . . 0/r32/eax 4/disp8 . # copy esi+4 to eax 45 50/push-eax 46 # . . call 47 e8/call <a href='055stream.subx.html#L17'>clear-stream</a>/disp32 48 # . . discard args 49 81 0/subop/add 3/mod/direct 4/rm32/esp . . . . . 4/imm32 # add to esp 50 # . f->read must now be 0; update its cache at ecx 51 31/xor 3/mod/direct 1/rm32/ecx . . . 1/r32/ecx . . # clear ecx 52 # . eax = read(f->fd, stream = f+4) 53 # . . push args 54 50/push-eax 55 ff 6/subop/push 0/mod/indirect 6/rm32/esi . . . . . . # push *esi 56 # . . call 57 e8/call <a href='060read.subx.html#L48'>read</a>/disp32 58 # . . discard args 59 81 0/subop/add 3/mod/direct 4/rm32/esp . . . . . 8/imm32 # add to esp 60 # if (f->write == 0) break 61 # since f->read was initially 0, eax is the same as f->write 62 # . if (eax == 0) return true 63 3d/compare-eax-and 0/imm32 64 74/jump-if-= $slurp:end/disp8 65 $slurp:from-stream: 66 # var c/eax: byte = f->data[f->read] 67 31/xor 3/mod/direct 0/rm32/eax . . . 0/r32/eax . . # clear eax 68 8a/copy-byte 1/mod/*+disp8 4/rm32/sib 6/base/esi 1/index/ecx . 0/r32/AL 0x10/disp8 . # copy byte at *(esi+ecx+16) to AL 69 # s->data[s->write] = c 70 88/copy-byte 1/mod/*+disp8 4/rm32/sib 7/base/edi 2/index/edx . 0/r32/AL 0xc/disp8 . # copy AL to *(edi+edx+12) 71 # ++f->read 72 41/increment-ecx 73 # ++s->write 74 42/increment-edx 75 eb/jump $slurp:loop/disp8 76 $slurp:end: 77 # save f->read 78 89/copy 1/mod/*+disp8 6/rm32/esi . . . 1/r32/ecx 8/disp8 . # copy ecx to *(esi+8) 79 # save s->write 80 89/copy 0/mod/indirect 7/rm32/edi . . . 2/r32/edx . . # copy edx to *edi 81 # . restore registers 82 5f/pop-to-edi 83 5e/pop-to-esi 84 5a/pop-to-edx 85 59/pop-to-ecx 86 58/pop-to-eax 87 # . epilogue 88 89/copy 3/mod/direct 4/rm32/esp . . . 5/r32/ebp . . # copy ebp to esp 89 5d/pop-to-ebp 90 c3/return 91 92 $slurp:abort: 93 # . _write(2/stderr, error) 94 # . . push args 95 68/push "slurp: destination too small\n"/imm32 96 68/push 2/imm32/stderr 97 # . . call 98 e8/call <a href='050_write.subx.html#L14'>_write</a>/disp32 99 # . . discard args 100 81 0/subop/add 3/mod/direct 4/rm32/esp . . . . . 8/imm32 # add to esp 101 # . syscall(exit, 1) 102 bb/copy-to-ebx 1/imm32 103 b8/copy-to-eax 1/imm32/exit 104 cd/syscall 0x80/imm8 105 # never gets here 106 107 test-slurp: 108 # setup 109 # . clear-stream(_test-stream) 110 # . . push args 111 68/push <a href='057write.subx.html#L148'>_test-stream</a>/imm32 112 # . . call 113 e8/call <a href='055stream.subx.html#L17'>clear-stream</a>/disp32 114 # . . discard args 115 81 0/subop/add 3/mod/direct 4/rm32/esp . . . . . 4/imm32 # add to esp 116 # . clear-stream($_test-buffered-file->buffer) 117 # . . push args 118 68/push $_test-buffered-file->buffer/imm32 119 # . . call 120 e8/call <a href='055stream.subx.html#L17'>clear-stream</a>/disp32 121 # . . discard args 122 81 0/subop/add 3/mod/direct 4/rm32/esp . . . . . 4/imm32 # add to esp 123 # . clear-stream(_test-tmp-stream) 124 # . . push args 125 68/push <a href='060read.subx.html#L429'>_test-tmp-stream</a>/imm32 126 # . . call 127 e8/call <a href='055stream.subx.html#L17'>clear-stream</a>/disp32 128 # . . discard args 129 81 0/subop/add 3/mod/direct 4/rm32/esp . . . . . 4/imm32 # add to esp 130 # write(_test-stream, "ab\ncd") 131 # . . push args 132 68/push "ab\ncd"/imm32 133 68/push <a href='057write.subx.html#L148'>_test-stream</a>/imm32 134 # . . call 135 e8/call <a href='057write.subx.html#L24'>write</a>/disp32 136 # . . discard args 137 81 0/subop/add 3/mod/direct 4/rm32/esp . . . . . 8/imm32 # add to esp 138 # read a line from _test-stream (buffered by _test-buffered-file) into _test-tmp-stream 139 # . eax = slurp(_test-buffered-file, _test-tmp-stream) 140 # . . push args 141 68/push <a href='060read.subx.html#L429'>_test-tmp-stream</a>/imm32 142 68/push <a href='061read-byte.subx.html#L274'>_test-buffered-file</a>/imm32 143 # . . call 144 e8/call <a href='082slurp.subx.html#L8'>slurp</a>/disp32 145 # . . discard args 146 81 0/subop/add 3/mod/direct 4/rm32/esp . . . . . 8/imm32 # add to esp 147 # check-stream-equal(_test-tmp-stream, "ab\ncd", msg) 148 # . . push args 149 68/push "F - test-slurp"/imm32 150 68/push "ab\ncd"/imm32 151 68/push <a href='060read.subx.html#L429'>_test-tmp-stream</a>/imm32 152 # . . call 153 e8/call <a href='058stream-equal.subx.html#L194'>check-stream-equal</a>/disp32 154 # . . discard args 155 81 0/subop/add 3/mod/direct 4/rm32/esp . . . . . 0xc/imm32 # add to esp 156 # end 157 c3/return 158 159 # . . vim:nowrap:textwidth=0 </pre> </body> </html>


context:
space:
mode: