version 1.3, 1997/06/23 15:54:02
|
version 1.5, 1998/04/14 16:43:21
|
Line 37 does> ( name execution: -- )
|
Line 37 does> ( name execution: -- )
|
drop ; |
drop ; |
|
|
: create-field ( align1 offset1 align size "name" -- align2 offset2 ) |
: create-field ( align1 offset1 align size "name" -- align2 offset2 ) |
create rot dup , ( align1 align size offset1 ) |
create swap rot over nalign dup , ( align1 size align offset ) |
+ >r nalign r> ; |
rot + >r nalign r> ; |
|
|
: field ( align1 offset1 align size "name" -- align2 offset2 ) |
: field ( align1 offset1 align size "name" -- align2 offset2 ) |
\ name execution: addr1 -- addr2 |
\ name execution: addr1 -- addr2 |
Line 66 does> ( name execution: -- )
|
Line 66 does> ( name execution: -- )
|
cell% 2* 2constant double% |
cell% 2* 2constant double% |
|
|
\ memory allocation words |
\ memory allocation words |
|
: %alignment ( align size -- align ) |
|
drop ; |
|
|
|
: %size ( align size -- size ) |
|
nip ; |
|
|
: %align ( align size -- ) |
: %align ( align size -- ) |
drop here swap nalign here - allot ; |
drop here swap nalign here - allot ; |
|
|