version 1.17, 2012/09/28 12:32:09
|
version 1.18, 2012/10/05 22:41:24
|
Line 56 extern void *gforth_engine(void *);
|
Line 56 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 void *throw_jmp_handler; |
extern __thread void *throw_jmp_handler; |
extern user_area* gforth_stacks(); |
extern user_area* gforth_stacks(Cell dsize, Cell rsize, Cell fsize, Cell lsize); |
|
extern void gforth_free_stacks(user_area* t); |
#define GFORTH_ARGS void |
#define GFORTH_ARGS void |
#else |
#else |
#define gforth_SP *((Cell **)(gforth_pointers(0))) |
#define gforth_SP *((Cell **)(gforth_pointers(0))) |
Line 68 extern user_area* gforth_stacks();
|
Line 69 extern user_area* gforth_stacks();
|
#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 *((void**)(gforth_pointers(8))) |
#define throw_jmp_handler *((void**)(gforth_pointers(8))) |
#define gforth_stacks ((user_area *(*)())gforth_pointers(9)) |
#define gforth_stacks ((user_area *(*)(Cell, Cell, Cell, Cell))gforth_pointers(9)) |
|
#define gforth_free_stacks ((void(*)(user_area* t))gforth_pointers(10)) |
#define GFORTH_ARGS void *(*gforth_pointers)(Cell) |
#define GFORTH_ARGS void *(*gforth_pointers)(Cell) |
#endif |
#endif |
|
|