Return to prim CVS log | Up to [gforth] / gforth |
version 1.80, 2001/03/18 22:20:27 | version 1.81, 2001/04/08 13:48:12 |
---|---|
Line 2143 Variable UP | Line 2143 Variable UP |
wcall ( u -- ) gforth | wcall ( u -- ) gforth |
IF_fpTOS(fp[0]=fpTOS); | IF_fpTOS(fp[0]=fpTOS); |
FP=fp; | FP=fp; |
sp=(SYSCALL(Cell(*)(Cell *, void *))u)(sp, &FP); | sp=(Cell*)(SYSCALL(Cell(*)(Cell *, void *))u)(sp, &FP); |
fp=FP; | fp=FP; |
IF_spTOS(spTOS=sp[0];) | IF_spTOS(spTOS=sp[0];) |
IF_fpTOS(fpTOS=fp[0]); | IF_fpTOS(fpTOS=fp[0]); |