version 1.119, 2012/03/13 22:56:39
|
version 1.120, 2012/03/14 15:38:14
|
Line 363 typedef struct saved_regs {
|
Line 363 typedef struct saved_regs {
|
Xt *sr_saved_ip; |
Xt *sr_saved_ip; |
Cell *sr_rp; |
Cell *sr_rp; |
} saved_regs; |
} saved_regs; |
extern saved_regs saved_regs_v, *saved_regs_p; |
extern saved_regs saved_regs_v; |
|
extern __thread saved_regs *saved_regs_p; |
#define saved_ip (saved_regs_p->sr_saved_ip) |
#define saved_ip (saved_regs_p->sr_saved_ip) |
#define rp (saved_regs_p->sr_rp) |
#define rp (saved_regs_p->sr_rp) |
/* for use in gforth_engine header */ |
/* for use in gforth_engine header */ |
#error sr_proto not passed in fflib.fs callbacks (solution: disable GLOBALS_NONRELOC) |
#error sr_proto not passed in fflib.fs callbacks (solution: disable GLOBALS_NONRELOC) |
#define sr_proto , struct saved_regs *saved_regs_p0 |
#define sr_proto , struct saved_regs *saved_regs_p0 |
#define sr_call , saved_regs_p |
#define sr_call , saved_regs_p |
#define sr_arg , arg[5] |
|
#else /* !defined(GLOBALS_NONRELOC) */ |
#else /* !defined(GLOBALS_NONRELOC) */ |
extern Xt *saved_ip; |
extern __thread Xt *saved_ip; |
extern Cell *rp; |
extern __thread Cell *rp; |
#define sr_proto |
#define sr_proto |
#define sr_call |
#define sr_call |
#define sr_arg |
|
#endif /* !defined(GLOBALS_NONRELOC) */ |
#endif /* !defined(GLOBALS_NONRELOC) */ |
#else /* !defined(GFORTH_DEBUGGING) */ |
#else /* !defined(GFORTH_DEBUGGING) */ |
#define sr_proto |
#define sr_proto |
#define sr_call |
#define sr_call |
#define sr_arg |
|
#endif /* !defined(GFORTH_DEBUGGING) */ |
#endif /* !defined(GFORTH_DEBUGGING) */ |
|
|
Label *gforth_engine(Xt *ip, Cell *sp, Cell *rp0, Float *fp, Address lp sr_proto); |
Label *gforth_engine(Xt *ip, Cell *sp, Cell *rp0, Float *fp, Address lp sr_proto); |