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

Diff for /gforth/engine/threaded.h between versions 1.38 and 1.39

version 1.38, 2007/12/31 18:40:25 version 1.39, 2008/08/09 13:24:25
Line 135  before_goto: goto *real_ca; after_goto: Line 135  before_goto: goto *real_ca; after_goto:
 #  define SET_IP(p)     do {ip=(p); cfa=*ip;} while(0)  #  define SET_IP(p)     do {ip=(p); cfa=*ip;} while(0)
 #  define NEXT_INST     (cfa)  #  define NEXT_INST     (cfa)
 #  define INC_IP(const_inc)     do {cfa=IP[const_inc]; ip+=(const_inc);} while(0)  #  define INC_IP(const_inc)     do {cfa=IP[const_inc]; ip+=(const_inc);} while(0)
 #  define DEF_CA        Label ca;  #  define DEF_CA        Label MAYBE_UNUSED ca;
 #  define NEXT_P1       do {\  #  define NEXT_P1       do {\
   if (DEBUG_DITC && (cfa<=vm_prims+DOESJUMP || cfa>=vm_prims+npriminfos)) \    if (DEBUG_DITC && (cfa<=vm_prims+DOESJUMP || cfa>=vm_prims+npriminfos)) \
     fprintf(stderr,"NEXT encountered prim %p at ip=%p\n", cfa, ip); \      fprintf(stderr,"NEXT encountered prim %p at ip=%p\n", cfa, ip); \
Line 186  before_goto: goto *real_ca; after_goto: Line 186  before_goto: goto *real_ca; after_goto:
 */  */
 #define KILLS asm("":"=X"(cfa));  #define KILLS asm("":"=X"(cfa));
   
 #warning direct threading scheme 8: cfa dead, i386 hack  /* #warning direct threading scheme 8: cfa dead, i386 hack */
 #  define NEXT_P0  #  define NEXT_P0
 #  define CFA           cfa  #  define CFA           cfa
 #  define IP            (ip)  #  define IP            (ip)
Line 202  before_goto: goto *real_ca; after_goto: Line 202  before_goto: goto *real_ca; after_goto:
 #else  #else
 /* indirect THREADED  */  /* indirect THREADED  */
   
 #warning indirect threading scheme 8: low latency,cisc  /* #warning indirect threading scheme 8: low latency,cisc */
 #  define NEXT_P0  #  define NEXT_P0
 #  define CFA           cfa  #  define CFA           cfa
 #  define IP            (ip)  #  define IP            (ip)
Removed from v.1.38  
changed lines
  Added in v.1.39

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