[gforth] / gforth / Attic / threading.h  

gforth: gforth/Attic/threading.h

Diff for /gforth/Attic/threading.h between version 1.2 and 1.3

version 1.2, Tue Nov 7 18:07:02 1995 UTC version 1.3, Thu Nov 9 18:28:40 1995 UTC
Line 173 
Line 173 
 #  define NEXT_INST     (*ip)  #  define NEXT_INST     (*ip)
 #  define INC_IP(const_inc)     ({ip+=(const_inc);})  #  define INC_IP(const_inc)     ({ip+=(const_inc);})
 #  define DEF_CA  #  define DEF_CA
 #  define NEXT_P1       ({cfa=*ip++;})  #  define NEXT_P1
 #  define NEXT_P2       ({goto **cfa;})  #  define NEXT_P2       ({cfa=*ip++; goto **cfa;})
 #  define EXEC(XT)      ({cfa=(XT); goto **cfa;})  #  define EXEC(XT)      ({cfa=(XT); goto **cfa;})
 #endif  #endif
   
Line 225 
Line 225 
 #  define NEXT_INST     (*ip)  #  define NEXT_INST     (*ip)
 #  define INC_IP(const_inc)     ({ip+=(const_inc);})  #  define INC_IP(const_inc)     ({ip+=(const_inc);})
 #  define DEF_CA  #  define DEF_CA
 #  define NEXT_P1       ({cfa=*ip;})  #  define NEXT_P1
 #  define NEXT_P2       ({ip++; goto **cfa;})  #  define NEXT_P2       ({cfa=*ip++; goto **cfa;})
 #  define EXEC(XT)      ({cfa=(XT); goto **cfa;})  #  define EXEC(XT)      ({cfa=(XT); goto **cfa;})
 #endif  #endif
   

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