version 1.250, 2012/03/24 01:17:51
|
version 1.251, 2012/03/26 16:34:35
|
Line 62 typedef enum prim_num {
|
Line 62 typedef enum prim_num {
|
/* global variables for engine.c |
/* global variables for engine.c |
We put them here because engine.c is compiled several times in |
We put them here because engine.c is compiled several times in |
different ways for the same engine. */ |
different ways for the same engine. */ |
__thread Cell *gforth_SP; |
PER_THREAD Cell *gforth_SP; |
__thread Float *gforth_FP; |
PER_THREAD Float *gforth_FP; |
__thread Address gforth_UP=NULL; |
PER_THREAD Address gforth_UP=NULL; |
__thread Cell *gforth_RP; |
PER_THREAD Cell *gforth_RP; |
__thread Address gforth_LP; |
PER_THREAD Address gforth_LP; |
|
|
#ifdef HAS_FFCALL |
#ifdef HAS_FFCALL |
|
|
#include <callback.h> |
#include <callback.h> |
|
|
__thread va_alist gforth_clist; |
PER_THREAD va_alist gforth_clist; |
|
|
void gforth_callback(Xt* fcall, void * alist) |
void gforth_callback(Xt* fcall, void * alist) |
{ |
{ |
Line 102 void gforth_callback(Xt* fcall, void * a
|
Line 102 void gforth_callback(Xt* fcall, void * a
|
GNU C manual) */ |
GNU C manual) */ |
#if defined(GLOBALS_NONRELOC) |
#if defined(GLOBALS_NONRELOC) |
saved_regs saved_regs_v; |
saved_regs saved_regs_v; |
__thread saved_regs *saved_regs_p = &saved_regs_v; |
PER_THREAD saved_regs *saved_regs_p = &saved_regs_v; |
#else /* !defined(GLOBALS_NONRELOC) */ |
#else /* !defined(GLOBALS_NONRELOC) */ |
__thread Xt *saved_ip; |
PER_THREAD Xt *saved_ip; |
__thread Cell *rp; |
PER_THREAD Cell *rp; |
#endif /* !defined(GLOBALS_NONRELOC) */ |
#endif /* !defined(GLOBALS_NONRELOC) */ |
#endif /* !defined(GFORTH_DEBUGGING) */ |
#endif /* !defined(GFORTH_DEBUGGING) */ |
|
|