gforth/cross.fs - diff

Return to cross.fs CVS log

Up to [gforth] / gforth

version 1.62, 1998/12/22 15:18:50	version 1.64, 1998/12/25 22:50:48
Line 1164 VARIABLE ;Resolve 1 cells allot	Line 1164 VARIABLE ;Resolve 1 cells allot
.sourcepos ." needs doer: " >in @ bl word count type >in ! cr	.sourcepos ." needs doer: " >in @ bl word count type >in ! cr
THEN	THEN
ghost tuck swap resolve <do:> swap >magic ! ;	ghost tuck swap resolve <do:> swap >magic ! ;

	Variable prim#
	: first-primitive ( n -- ) prim# ! ;
	: Primitive ( -- ) \ name
	prim# @ T Alias H -1 prim# +! ;
>CROSS	>CROSS

\ Conditionals and Comments 11may93jaw	\ Conditionals and Comments 11may93jaw
Line 1956 previous	Line 1961 previous
>CROSS	>CROSS
Create magic s" Gforth2x" here over allot swap move	Create magic s" Gforth2x" here over allot swap move

bigendian	bigendian 1+ \ strangely, in magic big=0, little=1
tcell 1 = 0 and	tcell 1 = 0 and or
tcell 2 = 2 and or	tcell 2 = 2 and or
tcell 4 = 4 and or	tcell 4 = 4 and or
tcell 8 = 6 and or	tcell 8 = 6 and or