version 1.16, 2012/07/23 13:27:48
|
version 1.17, 2012/09/28 12:32:09
|
Line 19
|
Line 19
|
*/ |
*/ |
|
|
#include <gforth/@PACKAGE_VERSION@/config.h> |
#include <gforth/@PACKAGE_VERSION@/config.h> |
#include <setjmp.h> |
|
|
|
#if defined(_WIN32) || defined(__WIN32__) || defined(__CYGWIN__) || defined(__ANDROID__) |
#if defined(_WIN32) || defined(__WIN32__) || defined(__CYGWIN__) || defined(__ANDROID__) |
#undef HAS_BACKLINK |
#undef HAS_BACKLINK |
Line 56 extern __thread char *gforth_UP;
|
Line 55 extern __thread char *gforth_UP;
|
extern void *gforth_engine(void *); |
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 void *throw_jmp_handler; |
extern user_area* gforth_stacks(); |
extern user_area* gforth_stacks(); |
#define GFORTH_ARGS void |
#define GFORTH_ARGS void |
#else |
#else |
Line 68 extern user_area* gforth_stacks();
|
Line 67 extern user_area* gforth_stacks();
|
#define gforth_engine ((char *(*)(void *))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 *((void**)(gforth_pointers(8))) |
#define gforth_stacks ((user_area *(*)())gforth_pointers(9)) |
#define gforth_stacks ((user_area *(*)())gforth_pointers(9)) |
#define GFORTH_ARGS void *(*gforth_pointers)(Cell) |
#define GFORTH_ARGS void *(*gforth_pointers)(Cell) |
#endif |
#endif |