[gforth] / gforth / engine / forth.h  

gforth: gforth/engine/forth.h

Diff for /gforth/engine/forth.h between version 1.70 and 1.71

version 1.70, Sat Dec 31 15:46:13 2005 UTC version 1.71, Thu Jan 5 01:37:33 2006 UTC
Line 315 
Line 315 
 Label *engine3(Xt *ip, Cell *sp, Cell *rp, Float *fp, Address lp);  Label *engine3(Xt *ip, Cell *sp, Cell *rp, Float *fp, Address lp);
   
 /* engine/prim support routines */  /* engine/prim support routines */
 Address my_alloc(Cell size);  Address gforth_alloc(Cell size);
 char *cstr(Char *from, UCell size, int clear);  char *cstr(Char *from, UCell size, int clear);
 char *tilde_cstr(Char *from, UCell size, int clear);  char *tilde_cstr(Char *from, UCell size, int clear);
 DCell timeval2us(struct timeval *tvp);  DCell timeval2us(struct timeval *tvp);
Line 376 
Line 376 
 # define debug 0  # define debug 0
 #endif  #endif
   
 extern Cell *SP;  extern Cell *gforth_SP;
 extern Float *FP;  extern Float *gforth_FP;
 extern Address UP;  extern Address gforth_UP;
   
 #ifdef HAS_FFCALL  #ifdef HAS_FFCALL
 extern Cell *RP;  extern Cell *gforth_RP;
 extern Address LP;  extern Address gforth_LP;
 extern void engine_callback(Xt* fcall, void * alist);  extern void gforth_callback(Xt* fcall, void * alist);
 #endif  #endif
   
 #ifdef HAS_LIBFFI  #ifdef HAS_LIBFFI
 extern Cell *RP;  extern Cell *gforth_RP;
 extern Address LP;  extern Address gforth_LP;
 #include <ffi.h>  #include <ffi.h>
 extern void ffi_callback(ffi_cif * cif, void * resp, void ** args, Xt * ip);  extern void gforth_callback(ffi_cif * cif, void * resp, void ** args, Xt * ip);
 #endif  #endif
   
 #ifdef GFORTH_DEBUGGING  #ifdef GFORTH_DEBUGGING

Generate output suitable for use with a patch program
Legend:
Removed from v.1.70  
changed lines
  Added in v.1.71
CVS Admin

Powered by ViewCVS 1.0-dev 		(Powered by ViewCVS)

ViewCVS and CVS Help