7299 - bug in code-generating float returns - mu - Soul of a tiny new machine. More thorough tests → More comprehensible and rewrite-friendly software → More resilient society.

diff options

author	Kartik Agaram <vc@akkartik.com>	2020-11-29 12:20:08 -0800
committer	Kartik Agaram <vc@akkartik.com>	2020-11-29 12:20:08 -0800
commit	33a85545e1c6fcfd892b6061083716fb7c835ec7 (patch)
tree	ca89efa616b28b5f2d4646b8441ac4523597add8 /110stop.subx
parent	b6369d4652b2f8552258f07433af1574ececca71 (diff)
download	mu-33a85545e1c6fcfd892b6061083716fb7c835ec7.tar.gz

7299 - bug in code-generating float returns

Diffstat (limited to '110stop.subx')

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 - linux/tile/float-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">  </style> <script type='text/javascript'>  </script> </head> <body onload='JumpToLine();'> <a href='https://github.com/akkartik/mu/blob/main/linux/tile/float-stack.mu'>https://github.com/akkartik/mu/blob/main/linux/tile/float-stack.mu</a> <pre id='vimCodeElement'> 1 type <a href='float-stack.mu.html#L1'>float-stack</a> { 2 data: (handle array float) 3 <a href='../203stack.subx.html#L338'>top</a>: int 4 } 5 6 fn <a href='float-stack.mu.html#L6'>initialize-float-stack</a> _self: (addr <a href='float-stack.mu.html#L1'>float-stack</a>), n: int { 7 var self/esi: (addr <a href='float-stack.mu.html#L1'>float-stack</a>) <- copy _self 8 var d/edi: (addr handle array float) <- <a href='../131table.subx.html#L26'>get</a> self, data 9 populate d, n 10 var <a href='../203stack.subx.html#L338'>top</a>/eax: (addr int) <- <a href='../131table.subx.html#L26'>get</a> self, <a href='../203stack.subx.html#L338'>top</a> 11 copy-to *top, 0 12 } 13 14 fn <a href='float-stack.mu.html#L14'>clear-float-stack</a> _self: (addr <a href='float-stack.mu.html#L1'>float-stack</a>) { 15 var self/esi: (addr <a href='float-stack.mu.html#L1'>float-stack</a>) <- copy _self 16 var <a href='../203stack.subx.html#L338'>top</a>/eax: (addr int) <- <a href='../131table.subx.html#L26'>get</a> self, <a href='../203stack.subx.html#L338'>top</a> 17 copy-to *top, 0 18 } 19 20 fn <a href='float-stack.mu.html#L20'>push-float-stack</a> _self: (addr <a href='float-stack.mu.html#L1'>float-stack</a>), _val: float { 21 var self/esi: (addr <a href='float-stack.mu.html#L1'>float-stack</a>) <- copy _self 22 var top-addr/ecx: (addr int) <- <a href='../131table.subx.html#L26'>get</a> self, <a href='../203stack.subx.html#L338'>top</a> 23 var data-ah/edx: (addr handle array float) <- <a href='../131table.subx.html#L26'>get</a> self, data 24 var data/eax: (addr array float) <- <a href='../120allocate.subx.html#L258'>lookup</a> *data-ah 25 var <a href='../203stack.subx.html#L338'>top</a>/edx: int <- copy *top-addr 26 var dest-addr/edx: (addr float) <- index data, <a href='../203stack.subx.html#L338'>top</a> 27 var val/xmm0: float <- copy _val 28 copy-to *dest-addr, val 29 add-to *top-addr, 1 30 } 31 32 fn <a href='float-stack.mu.html#L32'>pop-float-stack</a> _self: (addr <a href='float-stack.mu.html#L1'>float-stack</a>) -> _/xmm0: float { 33 var self/esi: (addr <a href='float-stack.mu.html#L1'>float-stack</a>) <- copy _self 34 var top-addr/ecx: (addr int) <- <a href='../131table.subx.html#L26'>get</a> self, <a href='../203stack.subx.html#L338'>top</a> 35 { 36 compare *top-addr, 0 37 break-if-> 38 var zero: float 39 return zero 40 } 41 subtract-from *top-addr, 1 42 var data-ah/edx: (addr handle array float) <- <a href='../131table.subx.html#L26'>get</a> self, data 43 var data/eax: (addr array float) <- <a href='../120allocate.subx.html#L258'>lookup</a> *data-ah 44 var <a href='../203stack.subx.html#L338'>top</a>/edx: int <- copy *top-addr 45 var result-addr/eax: (addr float) <- index data, <a href='../203stack.subx.html#L338'>top</a> 46 return *result-addr 47 } 48 49 fn <a href='float-stack.mu.html#L49'>float-stack-empty?</a> _self: (addr <a href='float-stack.mu.html#L1'>float-stack</a>) -> _/eax: boolean { 50 var self/esi: (addr <a href='float-stack.mu.html#L1'>float-stack</a>) <- copy _self 51 var top-addr/eax: (addr int) <- <a href='../131table.subx.html#L26'>get</a> self, <a href='../203stack.subx.html#L338'>top</a> 52 compare *top-addr, 0 53 { 54 break-if-!= 55 return 1/true 56 } 57 return 0/false 58 } 59 60 fn <a href='float-stack.mu.html#L60'>float-stack-length</a> _self: (addr <a href='float-stack.mu.html#L1'>float-stack</a>) -> _/eax: int { 61 var self/esi: (addr <a href='float-stack.mu.html#L1'>float-stack</a>) <- copy _self 62 var top-addr/eax: (addr int) <- <a href='../131table.subx.html#L26'>get</a> self, <a href='../203stack.subx.html#L338'>top</a> 63 return *top-addr 64 } </pre> </body> </html>


context:
space:
mode: