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 ; |
|
|