![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to engine.c CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [gforth] / gforth|
Return to engine.c CVS log | Up to [gforth] / gforth |
| version 1.24, 1995/02/23 20:17:18 | version 1.25, 1995/04/06 16:56:09 |
|---|---|
| Line 14 | Line 14 |
| #include <time.h> | #include <time.h> |
| #include <sys/time.h> | #include <sys/time.h> |
| #include <unistd.h> | #include <unistd.h> |
| #include <errno.h> | |
| #include "forth.h" | #include "forth.h" |
| #include "io.h" | #include "io.h" |
| Line 22 | Line 23 |
| #define SEEK_SET 0 | #define SEEK_SET 0 |
| #endif | #endif |
| #define IOR(flag) ((flag)? -512-errno : 0) | |
| typedef union { | typedef union { |
| struct { | struct { |
| #ifdef WORDS_BIGENDIAN | #ifdef WORDS_BIGENDIAN |
| Line 123 typedef struct F83Name { | Line 126 typedef struct F83Name { |
| #define FTOS (fp[0]) | #define FTOS (fp[0]) |
| #endif | #endif |
| Cell *SP; | |
| Float *FP; | |
| int emitcounter; | int emitcounter; |
| #define NULLC '\0' | #define NULLC '\0' |