|
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 |
![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to struct.fs CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [gforth] / gforth / compat