Diff for /gforth/engine/forth.h between versions 1.41 and 1.42

version 1.41, 2003/01/03 20:26:19 version 1.42, 2003/01/07 22:38:36
Line 171  typedef Label *Xt; Line 171  typedef Label *Xt;
 #if defined(DOUBLY_INDIRECT)  #if defined(DOUBLY_INDIRECT)
 #define MAKE_DOES_HANDLER(addr) MAKE_CF(addr, ((Label)&symbols[DOESJUMP]))  #define MAKE_DOES_HANDLER(addr) MAKE_CF(addr, ((Label)&symbols[DOESJUMP]))
 #else /* !defined(DOUBLY_INDIRECT) */  #else /* !defined(DOUBLY_INDIRECT) */
 #define MAKE_DOES_HANDLER(addr) 0  #define MAKE_DOES_HANDLER(addr) ((void)0)
 #endif /* !defined(DOUBLY_INDIRECT) */  #endif /* !defined(DOUBLY_INDIRECT) */
   
 #ifdef GFORTH_DEBUGGING  #ifdef GFORTH_DEBUGGING
Line 236  typedef struct { Line 236  typedef struct {
 /* the image-header is created in main.fs */  /* the image-header is created in main.fs */
   
 Label *engine(Xt *ip, Cell *sp, Cell *rp, Float *fp, Address lp);  Label *engine(Xt *ip, Cell *sp, Cell *rp, Float *fp, Address lp);
   Label *engine2(Xt *ip, Cell *sp, Cell *rp, Float *fp, Address lp);
   Label *engine3(Xt *ip, Cell *sp, Cell *rp, Float *fp, Address lp);
 Address my_alloc(Cell size);  Address my_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);

Removed from v.1.41  
changed lines
  Added in v.1.42


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