gforth/cross.fs - diff

Return to cross.fs CVS log

Up to [gforth] / gforth

version 1.158, 2006/03/05 14:10:51	version 1.161, 2006/12/31 13:39:11
Line 1	Line 1
\ CROSS.FS The Cross-Compiler 06oct92py	\ CROSS.FS The Cross-Compiler 06oct92py
\ Idea and implementation: Bernd Paysan (py)	\ Idea and implementation: Bernd Paysan (py)

\ Copyright (C) 1995,1996,1997,1998,1999,2000,2003,2004,2005 Free Software Foundation, Inc.	\ Copyright (C) 1995,1996,1997,1998,1999,2000,2003,2004,2005,2006 Free Software Foundation, Inc.

\ This file is part of Gforth.	\ This file is part of Gforth.

Line 3245 Cond: IS T ' >body @ H compile AL	Line 3245 Cond: IS T ' >body @ H compile AL
: IS T >address ' >body @ ! H ;	: IS T >address ' >body @ ! H ;
Cond: TO T ' >body @ H compile ALiteral compile ! ;Cond	Cond: TO T ' >body @ H compile ALiteral compile ! ;Cond
: TO T ' >body @ ! H ;	: TO T ' >body @ ! H ;
	Cond: CTO T ' >body H compile ALiteral compile ! ;Cond
	: CTO T ' >body ! H ;
[ELSE]	[ELSE]
Cond: IS T ' >body H compile ALiteral compile ! ;Cond	Cond: IS T ' >body H compile ALiteral compile ! ;Cond
: IS T >address ' >body ! H ;	: IS T >address ' >body ! H ;
Line 3730 previous	Line 3732 previous
: 2/ 2/ ;	: 2/ 2/ ;
: hex. base @ $10 base ! swap . base ! ;	: hex. base @ $10 base ! swap . base ! ;
: invert invert ;	: invert invert ;
	: linkstring ( addr u n addr -- )
	X here over X @ X , swap X ! X , ht-string, X align ;
\ : . . ;	\ : . . ;

: all-words ['] forced? IS skip? ;	: all-words ['] forced? IS skip? ;