gforth/cross.fs - diff

Return to cross.fs CVS log

Up to [gforth] / gforth

version 1.89, 2001/01/28 16:54:55	version 1.92, 2001/02/04 22:37:12
Line 802 false DefaultValue dcomps	Line 802 false DefaultValue dcomps
false DefaultValue hash	false DefaultValue hash
false DefaultValue xconds	false DefaultValue xconds
false DefaultValue header	false DefaultValue header
	false DefaultValue backtrace
false DefaultValue new-input	false DefaultValue new-input
[THEN]	[THEN]

Line 1516 variable ResolveFlag	Line 1517 variable ResolveFlag
>CROSS	>CROSS
\ Header states 12dec92py	\ Header states 12dec92py

: flag! ( w -- ) tlast @ dup >r T @ xor r> ! H ;	bigendian [IF] 0 [ELSE] tcell 1- [THEN] Constant flag+
	: flag! ( w -- ) tlast @ flag+ + dup >r T c@ xor r> c! H ;

VARIABLE ^imm	VARIABLE ^imm

\ !! should be target wordsize specific	\ !! should be target wordsize specific
$80000000 constant alias-mask	$80 constant alias-mask
$40000000 constant immediate-mask	$40 constant immediate-mask
$20000000 constant restrict-mask	$20 constant restrict-mask

>TARGET	>TARGET
: immediate immediate-mask flag!	: immediate immediate-mask flag!
Line 2210 Builder Field	Line 2212 Builder Field
: cell% ( n -- size align )	: cell% ( n -- size align )
T 1 cells H dup ;	T 1 cells H dup ;

Build: ( m v -- m' v ) dup T , H cell+ ;	Build: ( m v -- m' v ) dup T , cell+ H ;
DO: abort" Not in cross mode" ;DO	DO: abort" Not in cross mode" ;DO
Builder input-method	Builder input-method