Return to cross.fs CVS log | Up to [gforth] / gforth |
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 |