| : faligned ( addr -- f-addr ) |
: faligned ( addr -- f-addr ) |
| [ 1 floats 1- ] Literal + [ -1 floats ] Literal and ; |
[ 1 floats 1- ] Literal + [ -1 floats ] Literal and ; |
| |
|
| : falign ( -- ) here dup aligned swap |
: falign ( -- ) |
| |
here dup aligned swap |
| ?DO bl c, LOOP ; |
?DO bl c, LOOP ; |
| |
|
| : f, ( f -- ) here 1 floats allot f! ; |
: f, ( f -- ) here 1 floats allot f! ; |
| |
|
| |
\ !! have create produce faligned pfas |
| : fconstant ( r -- ) |
: fconstant ( r -- ) |
| Create falign f, |
Create falign f, |
| DOES> faligned f@ ; |
DOES> faligned f@ ; |
