mu - Soul of a tiny new machine. More thorough tests → More comprehensible and rewrite-friendly software → More resilient society.

diff options

Diffstat (limited to '033exclusive_container.cc')

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 - 121new-stream.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/121new-stream.subx'>https://github.com/akkartik/mu/blob/master/121new-stream.subx</a> <pre id='vimCodeElement'> 1 # Helper to allocate a stream on the heap. 2 3 == code 4 # instruction effective address register displacement immediate 5 # . op subop mod rm32 base index scale r32 6 # . 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 7 8 new-stream: # ad: (addr allocation-descriptor), length: int, elemsize: int, out: (addr handle stream _) 9 # . prologue 10 55/push-ebp 11 89/copy 3/mod/direct 5/rm32/ebp . . . 4/r32/esp . . # copy esp to ebp 12 # . save registers 13 50/push-eax 14 52/push-edx 15 # var size/edx: int = elemsize*length (clobbering eax) 16 # . eax = elemsize 17 8b/copy 1/mod/*+disp8 5/rm32/ebp . . . 0/r32/eax 0x10/disp8 . # copy *(ebp+16) to eax 18 # . eax *= length 19 31/xor 3/mod/direct 2/rm32/edx . . . 2/r32/edx . . # clear edx 20 f7 4/subop/multiply 1/mod/*+disp8 5/rm32/ebp . . 0xc/disp8 . # multiply *(ebp+12) into edx:eax 21 # . if overflow abort 22 81 7/subop/compare 3/mod/direct 2/rm32/edx . . . . . 0/imm32 # compare edx 23 75/jump-if-!= $new-stream:abort/disp8 24 # . edx = elemsize*length 25 89/copy 3/mod/direct 2/rm32/edx . . . 0/r32/eax . . # copy eax to edx 26 # var n/eax: int = size + 12 (for read, write and size) 27 05/add-to-eax 0xc/imm32 28 # allocate(ad, n, out) 29 # . . push args 30 ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp . . . . 0x14/disp8 . # push *(ebp+20) 31 50/push-eax 32 ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp . . . . 8/disp8 . # push *(ebp+8) 33 # . . call 34 e8/call <a href='120allocate.subx.html#L66'>allocate</a>/disp32 35 # . . discard args 36 81 0/subop/add 3/mod/direct 4/rm32/esp . . . . . 0xc/imm32 # add to esp 37 # eax = out->payload 38 8b/copy 1/mod/*+disp8 5/rm32/ebp . . . 0/r32/eax 0x14/disp8 . # copy *(ebp+20) to eax 39 8b/copy 1/mod/*+disp8 0/rm32/eax . . . 0/r32/eax 4/disp8 . # copy *(eax+4) to eax 40 # skip payload->allocid 41 05/add-to-eax 4/imm32 42 # eax->size = size 43 89/copy 1/mod/*+disp8 0/rm32/eax . . . 2/r32/edx 8/disp8 . # copy edx to *(eax+8) 44 # clear-stream(eax) 45 # . . push args 46 50/push-eax 47 # . . call 48 e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 49 # . . discard args 50 81 0/subop/add 3/mod/direct 4/rm32/esp . . . . . 4/imm32 # add to esp 51 $new-stream:end: 52 # . restore registers 53 5a/pop-to-edx 54 58/pop-to-eax 55 # . epilogue 56 89/copy 3/mod/direct 4/rm32/esp . . . 5/r32/ebp . . # copy ebp to esp 57 5d/pop-to-ebp 58 c3/return 59 60 $new-stream:abort: 61 # . _write(2/stderr, error) 62 # . . push args 63 68/push "new-stream: <a href='307size.subx.html#L5'>size</a> too large\n"/imm32 64 68/push 2/imm32/stderr 65 # . . call 66 e8/call <a href='101_write.subx.html#L12'>_write</a>/disp32 67 # . . discard args 68 81 0/subop/add 3/mod/direct 4/rm32/esp . . . . . 8/imm32 # add to esp 69 # . syscall(exit, 1) 70 bb/copy-to-ebx 1/imm32 71 e8/call syscall_exit/disp32 72 # never gets here 73 74 test-new-stream: 75 # . prologue 76 55/push-ebp 77 89/copy 3/mod/direct 5/rm32/ebp . . . 4/r32/esp . . # copy esp to ebp 78 # var heap/ecx: allocation-descriptor 79 68/push 0/imm32/limit 80 68/push 0/imm32/curr 81 89/copy 3/mod/direct 1/rm32/ecx . . . 4/r32/esp . . # copy esp to ecx 82 # heap = new-segment(512) 83 # . . push args 84 51/push-ecx 85 68/push 0x200/imm32 86 # . . call 87 e8/call <a href='104new-segment.subx.html#L40'>new-segment</a>/disp32 88 # . . discard args 89 81 0/subop/add 3/mod/direct 4/rm32/esp . . . . . 8/imm32 # add to esp 90 # var start/edx = ad->curr 91 8b/copy 0/mod/indirect 1/rm32/ecx . . . 2/r32/edx . . # copy *ecx to edx 92 # var h/ebx: (handle stream byte) 93 68/push 0/imm32 94 68/push 0/imm32 95 89/copy 3/mod/direct 3/rm32/ebx . . . 4/r32/esp . . # copy esp to ebx 96 # new-stream(heap, 3, 2, h) 97 # . . push args 98 53/push-ebx 99 68/push 2/imm32 100 68/push 3/imm32 101 51/push-ecx 102 # . . call 103 e8/call <a href='121new-stream.subx.html#L8'>new-stream</a>/disp32 104 # . . discard args 105 81 0/subop/add 3/mod/direct 4/rm32/esp . . . . . 0x10/imm32 # add to esp 106 # eax = out->payload 107 8b/copy 1/mod/*+disp8 3/rm32/ebx . . . 0/r32/eax 4/disp8 . # copy *(ebx+4) to eax 108 # check-ints-equal(eax, edx, msg) 109 # . . push args 110 68/push "F - <a href='121new-stream.subx.html#L74'>test-new-stream</a>: returns current pointer of allocation descriptor"/imm32 111 52/push-edx 112 50/push-eax 113 # . . call 114 e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 115 # . . discard args 116 81 0/subop/add 3/mod/direct 4/rm32/esp . . . . . 0xc/imm32 # add to esp 117 # skip payload->allocid 118 05/add-to-eax 4/imm32 119 # check-ints-equal(eax->size, 6, msg) 120 # . . push args 121 68/push "F - <a href='121new-stream.subx.html#L74'>test-new-stream</a>: sets <a href='307size.subx.html#L5'>size</a> correctly"/imm32 122 68/push 6/imm32 123 ff 6/subop/push 1/mod/*+disp8 0/rm32/eax . . . . . 8/disp8 # push *(eax+8) 124 # . . call 125 e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 126 # . . discard args 127 81 0/subop/add 3/mod/direct 4/rm32/esp . . . . . 0xc/imm32 # add to esp 128 # the rest is delegated to clear-stream() so we won't bother checking it 129 # . reclaim locals 130 81 0/subop/add 3/mod/direct 4/rm32/esp . . . . . 0x10/imm32 # add to esp 131 # . epilogue 132 89/copy 3/mod/direct 4/rm32/esp . . . 5/r32/ebp . . # copy ebp to esp 133 5d/pop-to-ebp 134 c3/return 135 136 # . . vim:nowrap:textwidth=0 </pre> </body> </html>


context:
space:
mode: