| |
|
| : fetch-double ( item -- ) |
: fetch-double ( item -- ) |
| >r |
>r |
| r@ item-name 2@ type |
." FETCH_DCELL(" |
| ." = ({Double_Store _d; _d.cells.low = " |
r@ item-name 2@ type ." , " |
| r@ item-d-offset @ dup effect-in-size 2@ data-stack-access |
r@ item-d-offset @ dup effect-in-size 2@ data-stack-access |
| ." ; _d.cells.high = " 1+ effect-in-size 2@ data-stack-access |
." , " 1+ effect-in-size 2@ data-stack-access |
| ." ; _d.dcell;});" cr |
." );" cr |
| rdrop ; |
rdrop ; |
| |
|
| : fetch-float ( item -- ) |
: fetch-float ( item -- ) |
| : store-double ( item -- ) |
: store-double ( item -- ) |
| \ !! store optimization is not performed, because it is not yet needed |
\ !! store optimization is not performed, because it is not yet needed |
| >r |
>r |
| ." {Double_Store _d; _d.dcell = " r@ item-name 2@ type ." ; " |
." STORE_DCELL(" r@ item-name 2@ type ." , " |
| r@ item-d-offset @ dup effect-out-size 2@ data-stack-access |
r@ item-d-offset @ dup effect-out-size 2@ data-stack-access |
| ." = _d.cells.low; " 1+ effect-out-size 2@ data-stack-access |
." , " 1+ effect-out-size 2@ data-stack-access |
| ." = _d.cells.high;}" cr |
." );" cr |
| rdrop ; |
rdrop ; |
| |
|
| : f-same-as-in? ( item -- f ) |
: f-same-as-in? ( item -- f ) |
