Diff for /gforth/engine/engine.c between versions 1.75 and 1.76

version 1.75, 2004/12/31 13:24:03 version 1.76, 2005/01/22 21:06:03
Line 268  Label *engine(Xt *ip0, Cell *sp0, Cell * Line 268  Label *engine(Xt *ip0, Cell *sp0, Cell *
   register Float *fp FPREG = fp0;    register Float *fp FPREG = fp0;
   register Address lp LPREG = lp0;    register Address lp LPREG = lp0;
   register Xt cfa CFAREG;    register Xt cfa CFAREG;
     register Label real_ca;
 #ifdef MORE_VARS  #ifdef MORE_VARS
   MORE_VARS    MORE_VARS
 #endif  #endif
Line 303  Label *engine(Xt *ip0, Cell *sp0, Cell * Line 304  Label *engine(Xt *ip0, Cell *sp0, Cell *
 #define INST_ADDR(name) ((Label)&&J_##name)  #define INST_ADDR(name) ((Label)&&J_##name)
 #include PRIM_LAB_I  #include PRIM_LAB_I
 #undef INST_ADDR  #undef INST_ADDR
     (Label)&&after_last      (Label)&&after_last,
       (Label)&&before_goto,
       (Label)&&after_goto
   };    };
 #ifdef CPU_DEP2  #ifdef CPU_DEP2
   CPU_DEP2    CPU_DEP2
Line 354  Label *engine(Xt *ip0, Cell *sp0, Cell * Line 357  Label *engine(Xt *ip0, Cell *sp0, Cell *
   CPU_DEP3    CPU_DEP3
 #endif  #endif
   
     before_goto:
     goto *real_ca;
     after_goto:
   
 #include PRIM_I  #include PRIM_I
   after_last: return (Label *)0;    after_last: return (Label *)0;
   /*needed only to get the length of the last primitive */    /*needed only to get the length of the last primitive */

Removed from v.1.75  
changed lines
  Added in v.1.76


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