gforth/engine/threaded.h - diff

Return to threaded.h CVS log

Up to [gforth] / gforth / engine

version 1.40, 2008/11/01 22:19:31	version 1.41, 2010/04/05 22:17:56
Line 137 before_goto: goto *real_ca; after_goto:	Line 137 before_goto: goto *real_ca; after_goto:
# 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 MAYBE_UNUSED 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+DOER_MAX \|\| 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); \
ip++;} while(0)	ip++;} while(0)
# define NEXT_P1_5 do {ca=**cfa; GOTO(ca);} while(0)	# define NEXT_P1_5 do {ca=**cfa; GOTO(ca);} while(0)
# define EXEC1(XT) ({DEF_CA cfa=(XT);\	# define EXEC1(XT) ({DEF_CA cfa=(XT);\
if (DEBUG_DITC && (cfa>vm_prims+DOESJUMP && cfa<vm_prims+npriminfos)) \	if (DEBUG_DITC && (cfa>vm_prims+DOER_MAX && cfa<vm_prims+npriminfos)) \
fprintf(stderr,"EXEC encountered xt %p at ip=%p, vm_prims=%p, xts=%p\n", cfa, ip, vm_prims, xts); \	fprintf(stderr,"EXEC encountered xt %p at ip=%p, vm_prims=%p, xts=%p\n", cfa, ip, vm_prims, xts); \
ca=**cfa; ca;})	ca=**cfa; ca;})