gforth/engine/libcc.h.in - diff

Return to libcc.h.in CVS log

Up to [gforth] / gforth / engine

version 1.5, 2008/09/18 15:47:05	version 1.6, 2008/10/06 19:31:36
Line 39 extern Cell *gforth_RP;	Line 39 extern Cell *gforth_RP;
extern char *gforth_LP;	extern char *gforth_LP;
extern char *gforth_UP;	extern char *gforth_UP;
extern void gforth_engine(void , Cell , Cell , Float , char , char *);	extern void gforth_engine(void , Cell , Cell , Float , char , char *);
	#ifdef HAS_FILE
	extern char cstr(char from, UCell size, int clear)
	extern char tilde_cstr(char from, UCell size, int clear)
	#endif
#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 47 extern void gforth_engine(void , Cell	Line 51 extern void gforth_engine(void , Cell
#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 , char ))(((void **)(gforth_pointers[5]))))
	#ifdef HAS_FILE
	#define cstr ((char ()(char , UCell , int))(((void **)(gforth_pointers[6]))))
	#define tilde_cstr ((char ()(char , UCell , int))(((void **)(gforth_pointers[7]))))
	#endif
#define GFORTH_ARGS void ** gforth_pointers	#define GFORTH_ARGS void ** gforth_pointers
#endif	#endif