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

version 1.162, 2007/03/25 21:30:59 version 1.163, 2007/03/31 21:43:18
Line 2316  Variable prim# Line 2316  Variable prim#
   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
   

Removed from v.1.162  
changed lines
  Added in v.1.163


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