![[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|
Return to struct.fs CVS log | Up to [gforth] / gforth |
| version 1.8, 1995/11/07 18:07:02 | version 1.9, 1997/02/09 21:51:41 |
|---|---|
| Line 37 | Line 37 |
| : 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 dofield: cfa, | (Field) \ 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 ; |