Return to m68k.h CVS log | Up to [gforth] / gforth |
version 1.4, 1995/11/07 18:06:49 | version 1.5, 1995/11/24 18:05:33 |
---|---|
Line 27 | Line 27 |
*/ | */ |
#ifdef DIRECT_THREADED | #ifdef DIRECT_THREADED |
#warning untested | |
/* PFA gives the parameter field address corresponding to a cfa */ | /* PFA gives the parameter field address corresponding to a cfa */ |
#define PFA(cfa) (((Cell *)cfa)+2) | #define PFA(cfa) (((Cell *)cfa)+2) |
/* PFA1 is a special version for use just after a NEXT1 */ | /* PFA1 is a special version for use just after a NEXT1 */ |