gforth/cross.fs - diff

Return to cross.fs CVS log

Up to [gforth] / gforth

version 1.59, 1998/12/11 22:54:26	version 1.61, 1998/12/22 13:41:18
Line 1957 previous	Line 1957 previous
Create magic s" Gforth10" here over allot swap move	Create magic s" Gforth10" here over allot swap move

char 1 bigendian + tcell + magic 7 + c!	char 1 bigendian + tcell + magic 7 + c!
char 0 tchar + magic 6 + 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
Line 2007 bigendian Constant bigendian	Line 2006 bigendian Constant bigendian
: tempdp> tempdp> ;	: tempdp> tempdp> ;
: const constflag on ;	: const constflag on ;
: warnings name 3 = 0= twarnings ! drop ;	: warnings name 3 = 0= twarnings ! drop ;
: \| NoHeaderFlag on ;	: \| ;
	\ : \| NoHeaderFlag on ; \ This is broken (damages the last word)

: save-cross save-cross ;	: save-cross save-cross ;
: save-region save-region ;	: save-region save-region ;