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' |