--- gforth/engine/engine.c 2002/12/21 11:59:21 1.51 +++ gforth/engine/engine.c 2003/01/20 17:07:40 1.57 @@ -64,6 +64,14 @@ #define SEEK_SET 0 #endif +#ifndef HAVE_FSEEKO +#define fseeko fseek +#endif + +#ifndef HAVE_FTELLO +#define ftello ftell +#endif + #define IOR(flag) ((flag)? -512-errno : 0) struct F83Name { @@ -206,7 +214,7 @@ extern int gforth_memcmp(const char * s1 #define engine engine2 #define VARIANT(v) (v) #define JUMP(target) goto I_noop -#define LABEL(name) J_##name: asm(".skip 16"); I_##name: +#define LABEL(name) J_##name: SKIP16; I_##name: #define IN_ENGINE2 #elif ENGINE==3 @@ -262,15 +270,15 @@ Label *engine(Xt *ip0, Cell *sp0, Cell * /* the following entry is normally unused; it is there because its index indicates a does-handler */ CPU_DEP1, -#define INST_ADDR(name) (Label)&&I_##name +#define INST_ADDR(name) ((Label)&&I_##name) #include "prim_lab.i" #undef INST_ADDR (Label)&&after_last, (Label)0, -#define INST_ADDR(name) (Label)&&K_##name +#define INST_ADDR(name) ((Label)&&K_##name) #include "prim_lab.i" #undef INST_ADDR -#define INST_ADDR(name) (Label)&&J_##name +#define INST_ADDR(name) ((Label)&&J_##name) #include "prim_lab.i" #undef INST_ADDR };