[gforth] / gforth / cross.fs  

gforth: gforth/cross.fs

Diff for /gforth/cross.fs between version 1.162 and 1.163

version 1.162, Sun Mar 25 21:30:59 2007 UTC version 1.163, Sat Mar 31 21:43:18 2007 UTC
Line 2316 
Line 2316 
   prim# @ (THeader ( S xt ghost )    prim# @ (THeader ( S xt ghost )
   ['] prim-resolved over >comp !    ['] prim-resolved over >comp !
   dup >ghost-flags <primitive> set-flag    dup >ghost-flags <primitive> set-flag
   over resolve-noforwards T A, H alias-mask flag!    over resolve-noforwards T A, H
     s" EC" T $has? H 0=
     IF
         alias-mask flag!
     THEN
   -1 prim# +! ;    -1 prim# +! ;
 >CROSS  >CROSS
   

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

Powered by ViewCVS 1.0-dev 		(Powered by ViewCVS)

ViewCVS and CVS Help