version 1.72, 2006/03/11 22:22:40
|
version 1.73, 2006/03/11 23:05:09
|
Line 310 struct Cellquad {
|
Line 310 struct Cellquad {
|
|
|
#define IOR(flag) ((flag)? -512-errno : 0) |
#define IOR(flag) ((flag)? -512-errno : 0) |
|
|
Label *engine(Xt *ip, Cell *sp, Cell *rp, Float *fp, Address lp); |
Label *gforth_engine(Xt *ip, Cell *sp, Cell *rp, Float *fp, Address lp); |
Label *engine2(Xt *ip, Cell *sp, Cell *rp, Float *fp, Address lp); |
Label *gforth_engine2(Xt *ip, Cell *sp, Cell *rp, Float *fp, Address lp); |
Label *engine3(Xt *ip, Cell *sp, Cell *rp, Float *fp, Address lp); |
Label *gforth_engine3(Xt *ip, Cell *sp, Cell *rp, Float *fp, Address lp); |
|
|
/* engine/prim support routines */ |
/* engine/prim support routines */ |
Address gforth_alloc(Cell size); |
Address gforth_alloc(Cell size); |