![[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|
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) |