gforth/cross.fs - diff

Return to cross.fs CVS log

Up to [gforth] / gforth

Diff for /gforth/cross.fs between versions 1.157 and 1.160

version 1.157, 2006/03/04 22:45:07	version 1.160, 2006/04/17 17:22:38
Line 1184 true DefaultValue gforthcross	Line 1184 true DefaultValue gforthcross
true DefaultValue interpreter	true DefaultValue interpreter
true DefaultValue ITC	true DefaultValue ITC
false DefaultValue rom	false DefaultValue rom
	false DefaultValue flash
true DefaultValue standardthreading	true DefaultValue standardthreading

\ ANSForth environment stuff	\ ANSForth environment stuff
Line 2639 T has? peephole H [IF]	Line 2640 T has? peephole H [IF]

>TARGET	>TARGET
Cond: DOES>	Cond: DOES>
T here 5 cells H + alit, compile (does>2) compile ;s	T here H [ T has? peephole H [IF] ] 5 [ [ELSE] ] 4 [ [THEN] ] T cells
	H + alit, compile (does>2) compile ;s
doeshandler, resolve-does>-part	doeshandler, resolve-does>-part
;Cond	;Cond

Line 3243 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 3728 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? ;

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>

Removed from v.1.157
changed lines
	Added in v.1.160