![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to float.fs CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [gforth] / gforth|
Return to float.fs CVS log | Up to [gforth] / gforth |
| version 1.4, 1994/06/01 10:02:22 | version 1.5, 1994/06/17 12:34:59 |
|---|---|
| Line 1 | Line 1 |
| \ High level floating point 14jan94py | \ High level floating point 14jan94py |
| : faligned ( addr -- f-addr ) | |
| [ 1 floats 1- ] Literal + [ -1 floats ] Literal and ; | |
| : falign ( -- ) | |
| here dup faligned swap | |
| ?DO bl c, LOOP ; | |
| : f, ( f -- ) here 1 floats allot f! ; | : f, ( f -- ) here 1 floats allot f! ; |
| \ !! have create produce faligned pfas | \ !! have create produce faligned pfas |