Diff for /gforth/cross.fs between versions 1.89 and 1.90

version 1.89, 2001/01/28 16:54:55 version 1.90, 2001/01/28 22:43:39
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!

Removed from v.1.89  
changed lines
  Added in v.1.90


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