[gforth] / gforth / cross.fs  

gforth: gforth/cross.fs

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

version 1.89, Sun Jan 28 16:54:55 2001 UTC version 1.90, Sun Jan 28 22:43:39 2001 UTC
Line 1516 
Line 1516 
 >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!

Generate output suitable for use with a patch program
Legend:
Removed from v.1.89  
changed lines
  Added in v.1.90
CVS Admin

Powered by ViewCVS 1.0-dev 		(Powered by ViewCVS)

ViewCVS and CVS Help