gforth/cross.fs - diff

Return to cross.fs CVS log

Up to [gforth] / gforth

version 1.34, 1996/04/17 16:39:39	version 1.36, 1996/05/13 16:36:55
Line 357 variable ResolveFlag	Line 357 variable ResolveFlag
VARIABLE ^imm	VARIABLE ^imm

>TARGET	>TARGET
: immediate 20 flag!	: immediate 40 flag!
^imm @ @ dup <imm> = IF drop EXIT THEN	^imm @ @ dup <imm> = IF drop EXIT THEN
<res> <> ABORT" CROSS: Cannot immediate a unresolved word"	<res> <> ABORT" CROSS: Cannot immediate a unresolved word"
<imm> ^imm @ ! ;	<imm> ^imm @ ! ;
: restrict 40 flag! ;	: restrict 20 flag! ;
>CROSS	>CROSS

\ ALIAS2 ansforth conform alias 9may93jaw	\ ALIAS2 ansforth conform alias 9may93jaw
Line 879 bigendian Constant bigendian	Line 879 bigendian Constant bigendian

Create magic s" Gforth10" here over allot swap move	Create magic s" Gforth10" here over allot swap move

[char] 1 bigendian + cell + magic 7 + c!	char 1 bigendian + cell + magic 7 + c!

: save-cross ( "image-name" "binary-name" -- )	: save-cross ( "image-name" "binary-name" -- )
bl parse ." Saving to " 2dup type cr	bl parse ." Saving to " 2dup type cr