![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to m68k.h CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [gforth] / gforth|
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 */ |