gforth/cross.fs - diff

Return to cross.fs CVS log

Up to [gforth] / gforth

version 1.159, 2006/03/25 18:37:15	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 ;