[gforth] / gforth / engine / engine.c  

gforth: gforth/engine/engine.c

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

version 1.75, Fri Dec 31 13:24:03 2004 UTC version 1.76, Sat Jan 22 21:06:03 2005 UTC
Line 268 
Line 268 
   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 
Line 304 
 #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 
Line 357 
   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 */

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

Powered by ViewCVS 1.0-dev 		(Powered by ViewCVS)

ViewCVS and CVS Help