gforth/cross.fs - diff

Return to cross.fs CVS log

Up to [gforth] / gforth

version 1.49, 1997/06/11 19:51:17	version 1.51, 1997/07/31 16:17:07
Line 840 Build: ;	Line 840 Build: ;
by: :dofield T @ H + ;DO	by: :dofield T @ H + ;DO
Builder (Field)	Builder (Field)

Build: >r rot r@ nalign dup T , H ( align1 size offset )	Build: ( align1 offset1 align size "name" -- align2 offset2 )
+ swap r> nalign ;	rot dup T , H ( align1 align size offset1 )
	+ >r nalign r> ;
by (Field)	by (Field)
Builder Field	Builder Field

: struct T 0 1 chars H ;	: struct T 1 chars 0 H ;
: end-struct T 2Constant H ;	: end-struct T 2Constant H ;

: cells: ( n -- size align )	: cell% ( -- align size )
T cells 1 cells H ;	T 1 cells H dup ;

\ ' 2Constant Alias2 end-struct	\ ' 2Constant Alias2 end-struct
\ 0 1 T Chars H 2Constant struct	\ 0 1 T Chars H 2Constant struct
Line 1077 previous	Line 1078 previous
: lshift lshift ;	: lshift lshift ;
: 2/ 2/ ;	: 2/ 2/ ;
: . . ;	: . . ;
	: const ;

\ mach-file count included	\ mach-file count included