version 1.4, 1997/07/31 16:17:23
|
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 |