[gforth] / gforth / Attic / engine.c  

gforth: gforth/Attic/engine.c

Diff for /gforth/Attic/engine.c between version 1.2 and 1.3

version 1.2, Wed Apr 20 17:12:00 1994 UTC version 1.3, Tue May 3 19:10:34 1994 UTC
Line 53 
Line 53 
 #endif  #endif
 #define NEXT_P1 ({cfa = *ip++; NEXT1_P1;})  #define NEXT_P1 ({cfa = *ip++; NEXT1_P1;})
   
 #define NEXT1 ({NEXT1_P1; NEXT1_P2;})  #define NEXT1 ({Label ca; NEXT1_P1; NEXT1_P2;})
 #define NEXT ({NEXT_P1; NEXT1_P2;})  #define NEXT ({Label ca; NEXT_P1; NEXT1_P2;})
   
 #ifdef USE_TOS  #ifdef USE_TOS
 #define IF_TOS(x) x  #define IF_TOS(x) x
Line 98 
Line 98 
 #include "prim_labels.i"  #include "prim_labels.i"
   };    };
 #ifndef DIRECT_THREADED  #ifndef DIRECT_THREADED
   Label ca;  /*  Label ca; */
 #endif  #endif
   IF_TOS(register Cell TOS;)    IF_TOS(register Cell TOS;)
   IF_FTOS(Float FTOS;)    IF_FTOS(Float FTOS;)
Line 129 
Line 129 
      problems with code fields employing calls and delay slots       problems with code fields employing calls and delay slots
   */    */
   {    {
       Label ca;
     Xt *current_ip = (Xt *)PFA1(cfa);      Xt *current_ip = (Xt *)PFA1(cfa);
     cfa = *current_ip;      cfa = *current_ip;
     NEXT1_P1;      NEXT1_P1;
     *--rp = (Cell)ip;      *--rp = (Cell)ip;
     ip = current_ip+1;      ip = current_ip+1;
   }  
   NEXT1_P2;    NEXT1_P2;
     }
   
  docon:   docon:
 #ifdef DEBUG  #ifdef DEBUG

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

Powered by ViewCVS 1.0-dev 		(Powered by ViewCVS)

ViewCVS and CVS Help