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

Diff for /gforth/engine/forth.h between versions 1.119 and 1.120

version 1.119, 2012/03/13 22:56:39 version 1.120, 2012/03/14 15:38:14
Line 363  typedef struct saved_regs { Line 363  typedef struct saved_regs {
   Xt *sr_saved_ip;    Xt *sr_saved_ip;
   Cell *sr_rp;    Cell *sr_rp;
 } saved_regs;  } saved_regs;
 extern saved_regs saved_regs_v, *saved_regs_p;  extern saved_regs saved_regs_v;
   extern __thread saved_regs *saved_regs_p;
 #define saved_ip (saved_regs_p->sr_saved_ip)  #define saved_ip (saved_regs_p->sr_saved_ip)
 #define rp       (saved_regs_p->sr_rp)  #define rp       (saved_regs_p->sr_rp)
 /* for use in gforth_engine header */  /* for use in gforth_engine header */
 #error sr_proto not passed in fflib.fs callbacks (solution: disable GLOBALS_NONRELOC)  #error sr_proto not passed in fflib.fs callbacks (solution: disable GLOBALS_NONRELOC)
 #define sr_proto , struct saved_regs *saved_regs_p0  #define sr_proto , struct saved_regs *saved_regs_p0
 #define sr_call  , saved_regs_p  #define sr_call  , saved_regs_p
 #define sr_arg   , arg[5]  
 #else /* !defined(GLOBALS_NONRELOC) */  #else /* !defined(GLOBALS_NONRELOC) */
 extern Xt *saved_ip;  extern __thread Xt *saved_ip;
 extern Cell *rp;  extern __thread Cell *rp;
 #define sr_proto  #define sr_proto
 #define sr_call  #define sr_call
 #define sr_arg  
 #endif /* !defined(GLOBALS_NONRELOC) */  #endif /* !defined(GLOBALS_NONRELOC) */
 #else /* !defined(GFORTH_DEBUGGING) */  #else /* !defined(GFORTH_DEBUGGING) */
 #define sr_proto  #define sr_proto
 #define sr_call  #define sr_call
 #define sr_arg  
 #endif /* !defined(GFORTH_DEBUGGING) */  #endif /* !defined(GFORTH_DEBUGGING) */
   
 Label *gforth_engine(Xt *ip, Cell *sp, Cell *rp0, Float *fp, Address lp sr_proto);  Label *gforth_engine(Xt *ip, Cell *sp, Cell *rp0, Float *fp, Address lp sr_proto);
Removed from v.1.119  
changed lines
  Added in v.1.120

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