version 1.17, 2012/09/28 12:32:09
|
version 1.19, 2012/12/31 15:25:19
|
Line 1
|
Line 1
|
/* header file for libcc-generated C code |
/* header file for libcc-generated C code |
|
|
Copyright (C) 2006,2007,2008 Free Software Foundation, Inc. |
Copyright (C) 2006,2007,2008,2012 Free Software Foundation, Inc. |
|
|
This file is part of Gforth. |
This file is part of Gforth. |
|
|
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 |
|
|