[BACK]Return to libcc.h.in CVS log [TXT] [DIR] Up to [gforth] / gforth / engine

Diff for /gforth/engine/libcc.h.in between versions 1.9 and 1.11

version 1.9, 2008/11/01 22:19:30 version 1.11, 2012/03/17 01:36:04
Line 33  typedef double Float; Line 33  typedef double Float;
 typedef unsigned Clongest UClongest;  typedef unsigned Clongest UClongest;
   
 #ifdef HAS_BACKLINK  #ifdef HAS_BACKLINK
 extern Cell *gforth_SP;  extern __thread Cell *gforth_SP;
 extern Float *gforth_FP;  extern __thread Float *gforth_FP;
 extern Cell *gforth_RP;  extern __thread Cell *gforth_RP;
 extern char *gforth_LP;  extern __thread char *gforth_LP;
 extern char *gforth_UP;  extern __thread char *gforth_UP;
 extern void *gforth_engine(void *, Cell *, Cell *, Float *, char *, char *);  extern void *gforth_engine(void *, Cell *, Cell *, Float *, char *);
 extern char *cstr(char *from, Cell size, int clear);  extern char *cstr(char *from, Cell size);
 extern char *tilde_cstr(char *from, Cell size, int clear);  extern char *tilde_cstr(char *from, Cell size);
 #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 48  extern char *tilde_cstr(char *from, Cell Line 48  extern char *tilde_cstr(char *from, Cell
 #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 *(*)(Xt *, Cell *, Cell *, Float *, char *, char *))(((void **)(gforth_pointers[5]))))  #define gforth_engine ((char *(*)(Xt *, Cell *, Cell *, Float *, char *))(((void **)(gforth_pointers[5]))))
 #define cstr ((char *(*)(char *, Cell, int))(((void **)(gforth_pointers[6]))))  #define cstr ((char *(*)(char *, Cell))(((void **)(gforth_pointers[6]))))
 #define tilde_cstr ((char *(*)(char *, Cell, int))(((void **)(gforth_pointers[7]))))  #define tilde_cstr ((char *(*)(char *, Cell))(((void **)(gforth_pointers[7]))))
 #define GFORTH_ARGS void ** gforth_pointers   #define GFORTH_ARGS void ** gforth_pointers 
 #endif  #endif
   
Removed from v.1.9  
changed lines
  Added in v.1.11

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>