version 1.41, 2003/01/03 20:26:19
|
version 1.42, 2003/01/07 22:38:36
|
Line 171 typedef Label *Xt;
|
Line 171 typedef Label *Xt;
|
#if defined(DOUBLY_INDIRECT) |
#if defined(DOUBLY_INDIRECT) |
#define MAKE_DOES_HANDLER(addr) MAKE_CF(addr, ((Label)&symbols[DOESJUMP])) |
#define MAKE_DOES_HANDLER(addr) MAKE_CF(addr, ((Label)&symbols[DOESJUMP])) |
#else /* !defined(DOUBLY_INDIRECT) */ |
#else /* !defined(DOUBLY_INDIRECT) */ |
#define MAKE_DOES_HANDLER(addr) 0 |
#define MAKE_DOES_HANDLER(addr) ((void)0) |
#endif /* !defined(DOUBLY_INDIRECT) */ |
#endif /* !defined(DOUBLY_INDIRECT) */ |
|
|
#ifdef GFORTH_DEBUGGING |
#ifdef GFORTH_DEBUGGING |
Line 236 typedef struct {
|
Line 236 typedef struct {
|
/* the image-header is created in main.fs */ |
/* the image-header is created in main.fs */ |
|
|
Label *engine(Xt *ip, Cell *sp, Cell *rp, Float *fp, Address lp); |
Label *engine(Xt *ip, Cell *sp, Cell *rp, Float *fp, Address lp); |
|
Label *engine2(Xt *ip, Cell *sp, Cell *rp, Float *fp, Address lp); |
|
Label *engine3(Xt *ip, Cell *sp, Cell *rp, Float *fp, Address lp); |
Address my_alloc(Cell size); |
Address my_alloc(Cell size); |
char *cstr(Char *from, UCell size, int clear); |
char *cstr(Char *from, UCell size, int clear); |
char *tilde_cstr(Char *from, UCell size, int clear); |
char *tilde_cstr(Char *from, UCell size, int clear); |