Return to struct.fs CVS log | Up to [gforth] / gforth |
version 1.6, 1995/09/06 21:00:30 | version 1.7, 1995/10/07 17:38:20 |
---|---|
Line 18 | Line 18 |
: field ( offset1 align1 size align -- offset2 align2 ) | : field ( offset1 align1 size align -- offset2 align2 ) |
\ note: this version uses local variables | \ note: this version uses local variables |
Header reveal -7 ( [ :dostruc ] Literal ) cfa, | Header reveal dofield: cfa, |
>r rot r@ nalign dup , ( align1 size offset ) | >r rot r@ nalign dup , ( align1 size offset ) |
+ swap r> nalign ; | + swap r> nalign ; |