Diff for /gforth/engine/forth.h between versions 1.9 and 1.10

version 1.9, 1999/01/08 16:58:31 version 1.10, 1999/02/28 21:31:50
Line 126  typedef Label Xt; Line 126  typedef Label Xt;
 typedef Label *Xt;  typedef Label *Xt;
 #endif  #endif
   
   
 #if !defined(DIRECT_THREADED)  #if !defined(DIRECT_THREADED)
 /* i.e. indirect threaded our doubly indirect threaded */  /* i.e. indirect threaded our doubly indirect threaded */
 /* the direct threaded version is machine dependent and resides in machine.h */  /* the direct threaded version is machine dependent and resides in machine.h */
Line 200  typedef Label *Xt; Line 199  typedef Label *Xt;
 #define FTOS (fp[0])  #define FTOS (fp[0])
 #endif  #endif
   
   typedef struct {
     Address base;         /* base address of image (0 if relocatable) */
     UCell checksum;       /* checksum of ca's to protect against some
                              incompatible binary/executable combinations
                              (0 if relocatable) */
     UCell image_size;     /* all sizes in bytes */
     UCell dict_size;
     UCell data_stack_size;
     UCell fp_stack_size;
     UCell return_stack_size;
     UCell locals_stack_size;
     Xt *boot_entry;       /* initial ip for booting (in BOOT) */
     Xt *throw_entry;      /* ip after signal (in THROW) */
     Cell unused1;         /* possibly tib stack size */
     Cell unused2;
     Address data_stack_base; /* this and the following fields are initialized by the loader */
     Address fp_stack_base;
     Address return_stack_base;
     Address locals_stack_base;
   } ImageHeader;
   /* 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);
 Address my_alloc(Cell size);  Address my_alloc(Cell size);
   
Line 215  Cell memcasecmp(const Char *s1, const Ch Line 236  Cell memcasecmp(const Char *s1, const Ch
   
 extern int offset_image;  extern int offset_image;
 extern int die_on_signal;  extern int die_on_signal;
   extern UCell pagesize;
   extern ImageHeader *gforth_header;
   
 #ifdef GFORTH_DEBUGGING  #ifdef GFORTH_DEBUGGING
 extern Xt *ip;  extern Xt *ip;

Removed from v.1.9  
changed lines
  Added in v.1.10


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