Return to prim CVS log | Up to [gforth] / gforth |
version 1.94, 2002/06/02 21:19:09 | version 1.95, 2002/06/17 12:34:41 |
---|---|
Line 2166 Variable UP | Line 2166 Variable UP |
wcall ( u -- ) gforth | wcall ( u -- ) gforth |
IF_fpTOS(fp[0]=fpTOS); | IF_fpTOS(fp[0]=fpTOS); |
FP=fp; | FP=fp; |
sp=(Cell*)(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]); |