[gforth] / gforth / engine / forth.h  

gforth: gforth/engine/forth.h

Diff for /gforth/engine/forth.h between version 1.23 and 1.24

version 1.23, Thu Dec 27 16:29:29 2001 UTC version 1.24, Mon Jan 14 08:40:24 2002 UTC
Line 151 
Line 151 
 #if !defined(DOUBLY_INDIRECT)  #if !defined(DOUBLY_INDIRECT)
 #  define DOES_CA (symbols[DODOES])  #  define DOES_CA (symbols[DODOES])
 #else /* defined(DOUBLY_INDIRECT) */  #else /* defined(DOUBLY_INDIRECT) */
 #  define DOES_CA ((Label)&symbols[DODOES])  #  define DOES_CA ((Label)&xts[DODOES])
 #endif /* defined(DOUBLY_INDIRECT) */  #endif /* defined(DOUBLY_INDIRECT) */
   
   
Line 226 
Line 226 
   Xt *boot_entry;       /* initial ip for booting (in BOOT) */    Xt *boot_entry;       /* initial ip for booting (in BOOT) */
   Xt *throw_entry;      /* ip after signal (in THROW) */    Xt *throw_entry;      /* ip after signal (in THROW) */
   Cell unused1;         /* possibly tib stack size */    Cell unused1;         /* possibly tib stack size */
   Cell unused2;    Label *xt_base;         /* base of DOUBLE_INDIRECT xts[], for comp-i.fs */
   Address data_stack_base; /* this and the following fields are initialized by the loader */    Address data_stack_base; /* this and the following fields are initialized by the loader */
   Address fp_stack_base;    Address fp_stack_base;
   Address return_stack_base;    Address return_stack_base;
Line 264 
Line 264 
 extern UCell pagesize;  extern UCell pagesize;
 extern ImageHeader *gforth_header;  extern ImageHeader *gforth_header;
 extern Label *vm_prims;  extern Label *vm_prims;
   extern Label *xts;
   
 #ifdef GFORTH_DEBUGGING  #ifdef GFORTH_DEBUGGING
 extern Xt *ip;  extern Xt *ip;

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

Powered by ViewCVS 1.0-dev 		(Powered by ViewCVS)

ViewCVS and CVS Help