version 1.10, 2012/03/14 15:51:15
|
version 1.11, 2012/03/17 01:36:04
|
Line 38 extern __thread Float *gforth_FP;
|
Line 38 extern __thread Float *gforth_FP;
|
extern __thread Cell *gforth_RP; |
extern __thread Cell *gforth_RP; |
extern __thread char *gforth_LP; |
extern __thread char *gforth_LP; |
extern __thread char *gforth_UP; |
extern __thread char *gforth_UP; |
extern void *gforth_engine(void *, Cell *, Cell *, Float *, char *, char *); |
extern void *gforth_engine(void *, Cell *, Cell *, Float *, char *); |
extern char *cstr(char *from, Cell size); |
extern char *cstr(char *from, Cell size); |
extern char *tilde_cstr(char *from, Cell size); |
extern char *tilde_cstr(char *from, Cell size); |
#define GFORTH_ARGS void |
#define GFORTH_ARGS void |
Line 48 extern char *tilde_cstr(char *from, Cell
|
Line 48 extern char *tilde_cstr(char *from, Cell
|
#define gforth_LP *((char **)(gforth_pointers[2])) |
#define gforth_LP *((char **)(gforth_pointers[2])) |
#define gforth_RP *((Cell **)(gforth_pointers[3])) |
#define gforth_RP *((Cell **)(gforth_pointers[3])) |
#define gforth_UP *((char **)(gforth_pointers[4])) |
#define gforth_UP *((char **)(gforth_pointers[4])) |
#define gforth_engine ((char *(*)(Xt *, Cell *, Cell *, Float *, char *, char *))(((void **)(gforth_pointers[5])))) |
#define gforth_engine ((char *(*)(Xt *, Cell *, Cell *, Float *, char *))(((void **)(gforth_pointers[5])))) |
#define cstr ((char *(*)(char *, Cell))(((void **)(gforth_pointers[6])))) |
#define cstr ((char *(*)(char *, Cell))(((void **)(gforth_pointers[6])))) |
#define tilde_cstr ((char *(*)(char *, Cell))(((void **)(gforth_pointers[7])))) |
#define tilde_cstr ((char *(*)(char *, Cell))(((void **)(gforth_pointers[7])))) |
#define GFORTH_ARGS void ** gforth_pointers |
#define GFORTH_ARGS void ** gforth_pointers |