version 1.12, 1997/07/31 16:17:11
|
version 1.13, 1998/04/14 16:43:07
|
Line 35 does> ( name execution: -- )
|
Line 35 does> ( name execution: -- )
|
drop ; |
drop ; |
|
|
: field, ( align1 offset1 align size -- align2 offset2 ) |
: field, ( align1 offset1 align size -- align2 offset2 ) |
rot dup , ( align1 align size offset1 ) |
swap rot over nalign dup , ( align1 size align offset ) |
+ >r nalign r> ; |
rot + >r nalign r> ; |
|
|
: create-field ( align1 offset1 align size -- align2 offset2 ) |
: create-field ( align1 offset1 align size -- align2 offset2 ) |
create field, ; |
create field, ; |