Return to forth.h CVS log | Up to [gforth] / gforth |
version 1.19, 1995/11/07 18:06:40 | version 1.20, 1995/11/09 19:37:02 |
---|---|
Line 35 typedef void *Label; | Line 35 typedef void *Label; |
#include "machine.h" | #include "machine.h" |
/* Forth data types */ | /* Forth data types */ |
typedef int Bool; | typedef Cell Bool; |
#define FLAG(b) (-(b)) | #define FLAG(b) (-(b)) |
#define FILEIO(error) (FLAG(error) & -37) | #define FILEIO(error) (FLAG(error) & -37) |
#define FILEEXIST(error) (FLAG(error) & -38) | #define FILEEXIST(error) (FLAG(error) & -38) |