gforth/engine/threaded.h - diff

Return to threaded.h CVS log

Up to [gforth] / gforth / engine

version 1.18, 2002/12/28 17:18:27	version 1.19, 2003/01/02 21:40:22
Line 92	Line 92
*/	*/

#ifdef DOUBLY_INDIRECT	#ifdef DOUBLY_INDIRECT
	# ifndef DEBUG_DITC
	# define DEBUG_DITC 0
	# endif
	/* define to 1 if you want to check consistency */
# define NEXT_P0 ({cfa=*ip;})	# define NEXT_P0 ({cfa=*ip;})
# define IP (ip)	# define IP (ip)
# define SET_IP(p) ({ip=(p); NEXT_P0;})	# define SET_IP(p) ({ip=(p); NEXT_P0;})
Line 99	Line 103
# define INC_IP(const_inc) ({cfa=IP[const_inc]; ip+=(const_inc);})	# define INC_IP(const_inc) ({cfa=IP[const_inc]; ip+=(const_inc);})
# define DEF_CA Label ca;	# define DEF_CA Label ca;
# define NEXT_P1 ({\	# define NEXT_P1 ({\
if ((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 [%p .. %p]\n", cfa, ip, vm_prims+DOESJUMP, vm_prims+npriminfos); \	fprintf(stderr,"NEXT encountered prim %p at ip=%p\n", cfa, ip); \
ip++; ca=**cfa;})	ip++; ca=**cfa;})
# define NEXT_P2 ({goto *ca;})	# define NEXT_P2 ({goto *ca;})
# define EXEC(XT) ({DEF_CA cfa=(XT);\	# define EXEC(XT) ({DEF_CA cfa=(XT);\
if ((cfa>vm_prims+DOESJUMP && cfa<vm_prims+npriminfos)) \	if (DEBUG_DITC && (cfa>vm_prims+DOESJUMP && 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; goto ca;})	ca=*cfa; goto ca;})