| version 1.94, Sun Jun 2 21:19:09 2002 UTC | version 1.95, Mon Jun 17 12:34:41 2002 UTC | ||
|---|---|---|---|
|
|
||
| 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]); |
|
||||||||
|
CVS Admin Powered by ViewCVS 1.0-dev |
ViewCVS and CVS Help |