version 1.15, 2012/07/20 23:52:37
|
version 1.16, 2012/07/23 13:27:48
|
Line 53 extern __thread Float *gforth_FP;
|
Line 53 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 *); |
extern void *gforth_engine(void *); |
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); |
extern __thread jmp_buf *throw_jmp_handler; |
extern __thread jmp_buf *throw_jmp_handler; |
Line 65 extern user_area* gforth_stacks();
|
Line 65 extern user_area* gforth_stacks();
|
#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 *(*)(void *, Cell *, Cell *, Float *, char *))gforth_pointers(5)) |
#define gforth_engine ((char *(*)(void *))gforth_pointers(5)) |
#define cstr ((char *(*)(char *, Cell))gforth_pointers(6)) |
#define cstr ((char *(*)(char *, Cell))gforth_pointers(6)) |
#define tilde_cstr ((char *(*)(char *, Cell))gforth_pointers(7)) |
#define tilde_cstr ((char *(*)(char *, Cell))gforth_pointers(7)) |
#define throw_jmp_handler *((jmp_buf**)(gforth_pointers(8))) |
#define throw_jmp_handler *((jmp_buf**)(gforth_pointers(8))) |