gforth/struct.fs - diff

Return to struct.fs CVS log

Up to [gforth] / gforth

version 1.9, 1997/02/09 21:51:41	version 1.10, 1997/03/21 12:21:13
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
(Field) \ Header reveal dofield: cfa,	[IFDEF] (Field) (Field) [ELSE] Header reveal dofield: cfa, [THEN]
>r rot r@ nalign dup , ( align1 size offset )	>r rot r@ nalign dup , ( align1 size offset )
+ swap r> nalign ;	+ swap r> nalign ;