version 1.7, 1994/07/08 15:00:39
|
version 1.12, 1994/12/12 17:10:37
|
Line 1
|
Line 1
|
/* |
/* |
$Id$ |
|
Copyright 1992 by the ANSI figForth Development Group |
Copyright 1992 by the ANSI figForth Development Group |
*/ |
*/ |
|
|
Line 13 typedef void *Label;
|
Line 12 typedef void *Label;
|
#define DOCON 1 |
#define DOCON 1 |
#define DOVAR 2 |
#define DOVAR 2 |
#define DOUSER 3 |
#define DOUSER 3 |
#define DODOES 4 |
#define DODEFER 4 |
#define DOESJUMP 5 |
#define DODOES 5 |
|
#define DOESJUMP 6 |
/* Some versions of some unices (Linux) have the symbol BIG_ENDIAN defined |
|
in their standard headers. Make sure it's undefined -- Lennart */ |
|
#ifdef BIG_ENDIAN |
|
#undef BIG_ENDIAN |
|
#endif |
|
|
|
#include "machine.h" |
#include "machine.h" |
|
|
Line 44 typedef Label *Xt;
|
Line 38 typedef Label *Xt;
|
#endif |
#endif |
|
|
Label *engine(Xt *ip, Cell *sp, Cell *rp, Float *fp, Address lp); |
Label *engine(Xt *ip, Cell *sp, Cell *rp, Float *fp, Address lp); |
extern Xt *throw_ip; |
|
|
|
#ifndef DIRECT_THREADED |
#ifndef DIRECT_THREADED |
/* i.e. indirect threaded */ |
/* i.e. indirect threaded */ |
Line 71 extern Xt *throw_ip;
|
Line 64 extern Xt *throw_ip;
|
#endif |
#endif |
|
|
#ifdef DEBUG |
#ifdef DEBUG |
# define NAME(string) printf("%08x: "string"\n",(int)ip); |
# define NAME(string) fprintf(stderr,"%08x: "string"\n",(int)ip); |
#else |
#else |
# define NAME(string) |
# define NAME(string) |
#endif |
#endif |