![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to forth.h CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [gforth] / gforth / engine|
Return to forth.h CVS log | Up to [gforth] / gforth / engine |
| version 1.13, 2000/09/23 15:47:07 | version 1.14, 2000/11/10 10:04:21 |
|---|---|
| Line 19 | Line 19 |
| Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111, USA. | Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111, USA. |
| */ | */ |
| #define _GNU_SOURCE | |
| #include "config.h" | #include "config.h" |
| #if defined(DOUBLY_INDIRECT) | #if defined(DOUBLY_INDIRECT) |
| Line 186 typedef Label *Xt; | Line 188 typedef Label *Xt; |
| #endif | #endif |
| #ifdef USE_TOS | #ifdef USE_TOS |
| #define IF_TOS(x) x | #define IF_spTOS(x) x |
| #else | #else |
| #define IF_TOS(x) | #define IF_spTOS(x) |
| #define TOS (sp[0]) | #define spTOS (sp[0]) |
| #endif | #endif |
| #ifdef USE_FTOS | #ifdef USE_FTOS |
| #define IF_FTOS(x) x | #define IF_fpTOS(x) x |
| #else | #else |
| #define IF_FTOS(x) | #define IF_fpTOS(x) |
| #define FTOS (fp[0]) | #define fpTOS (fp[0]) |
| #endif | #endif |
| typedef struct { | typedef struct { |