Return to forth.h CVS log | Up to [gforth] / gforth |
version 1.26, 1996/10/13 19:56:21 | version 1.27, 1996/12/28 17:19:24 |
---|---|
Line 170 typedef Label *Xt; | Line 170 typedef Label *Xt; |
#define CACHE_FLUSH(addr,size) | #define CACHE_FLUSH(addr,size) |
#endif | #endif |
#ifdef USE_TOS | |
#define IF_TOS(x) x | |
#else | |
#define IF_TOS(x) | |
#define TOS (sp[0]) | |
#endif | |
#ifdef USE_FTOS | |
#define IF_FTOS(x) x | |
#else | |
#define IF_FTOS(x) | |
#define FTOS (fp[0]) | |
#endif | |
Label *engine(Xt *ip, Cell *sp, Cell *rp, Float *fp, Address lp); | Label *engine(Xt *ip, Cell *sp, Cell *rp, Float *fp, Address lp); |
/* dblsub routines */ | /* dblsub routines */ |