version 1.4, 1995/08/27 19:56:39
|
version 1.5, 1995/08/29 21:07:39
|
Line 47
|
Line 47
|
: floats: ( n -- size align ) |
: floats: ( n -- size align ) |
floats 1 floats ; |
floats 1 floats ; |
|
|
\ dfoats and sfloats is not yet defined |
: dfloats: ( n -- size align ) |
\ : dfloats: ( n -- size align ) |
dfloats 1 dfloats ; |
\ dfloats 1 dfloats ; |
|
\ |
: sfloats: ( n -- size align ) |
\ : sfloats: ( n -- size align ) |
sfloats 1 sfloats ; |
\ sfloats 1 sfloats ; |
|
|
|
: struct-align ( size align -- ) |
: struct-align ( size align -- ) |
dp @ swap nalign dp ! |
dp @ swap nalign dp ! |
Line 62
|
Line 61
|
over swap struct-align |
over swap struct-align |
here swap allot ; |
here swap allot ; |
|
|
: struct-allocate ( size align -- addr ) |
: struct-allocate ( size align -- addr ior ) |
drop allocate ; |
drop allocate ; |