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.91, 2001/01/29 11:39:43
Line 1516 variable ResolveFlag	Line 1516 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 2211 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