Return to prim CVS log | Up to [gforth] / gforth |
version 1.33, 1999/05/16 17:13:22 | version 1.34, 1999/05/17 13:12:05 |
---|---|
Line 2178 UP=up=(char *)a_addr; | Line 2178 UP=up=(char *)a_addr; |
: | : |
up ! ; | up ! ; |
Variable UP | Variable UP |
wcall u -- gforth | |
IF_FTOS(fp[0]=FTOS); | |
FP=fp; | |
sp=(SYSCALL(Cell(*)(Cell *, void *))u)(sp, &FP); | |
fp=FP; | |
IF_TOS(TOS=sp[0];) | |
IF_FTOS(FTOS=fp[0]); | |