version 1.98, 2007/03/17 19:14:57
|
version 1.99, 2007/03/18 21:46:17
|
Line 368 Label *gforth_engine(Xt *ip0, Cell *sp0,
|
Line 368 Label *gforth_engine(Xt *ip0, Cell *sp0,
|
#include PRIM_LAB_I |
#include PRIM_LAB_I |
#undef INST_ADDR |
#undef INST_ADDR |
}; |
}; |
#ifdef INCLUDE_IMAGE |
#ifdef STANDALONE |
#define INST_ADDR(name) ((Label)&&I_##name) |
#define INST_ADDR(name) ((Label)&&I_##name) |
#include "image.i" |
#include "image.i" |
#undef INST_ADDR |
#undef INST_ADDR |
Line 404 Label *gforth_engine(Xt *ip0, Cell *sp0,
|
Line 404 Label *gforth_engine(Xt *ip0, Cell *sp0,
|
xts[i] = symbols[i] = &routines[i]; |
xts[i] = symbols[i] = &routines[i]; |
} |
} |
#endif /* defined(DOUBLY_INDIRECT) */ |
#endif /* defined(DOUBLY_INDIRECT) */ |
|
#ifdef STANDALONE |
|
return image; |
|
#else |
return symbols; |
return symbols; |
|
#endif |
} |
} |
|
|
#if !(defined(GFORTH_DEBUGGING) || defined(INDIRECT_THREADED) || defined(DOUBLY_INDIRECT) || defined(VM_PROFILING)) |
#if !(defined(GFORTH_DEBUGGING) || defined(INDIRECT_THREADED) || defined(DOUBLY_INDIRECT) || defined(VM_PROFILING)) |