gforth/engine/threaded.h - diff

Return to threaded.h CVS log

Up to [gforth] / gforth / engine

version 1.29, 2005/01/23 09:55:13	version 1.30, 2005/01/23 13:56:13
Line 96	Line 96
#else	#else
#define DO_GOTO goto *real_ca	#define DO_GOTO goto *real_ca
#endif	#endif
	#ifndef GOTO_ALIGN
	#define GOTO_ALIGN
	#endif

#define GOTO(target) do {(real_ca=(target));} while(0)	#define GOTO(target) do {(real_ca=(target));} while(0)
#define NEXT_P2 do {NEXT_P1_5; DO_GOTO;} while(0)	#define NEXT_P2 do {NEXT_P1_5; DO_GOTO;} while(0)
#define EXEC(XT) do { EXEC1(XT); DO_GOTO;} while (0)	#define EXEC(XT) do { EXEC1(XT); DO_GOTO;} while (0)
#define NEXT do {DEF_CA NEXT_P1; NEXT_P2;} while(0)	#define NEXT do {DEF_CA NEXT_P1; NEXT_P2;} while(0)
	#define FIRST_NEXT_P2 NEXT_P1_5; GOTO_ALIGN; \
	before_goto: goto *real_ca; after_goto:
	#define FIRST_NEXT DEF_CA NEXT_P1; FIRST_NEXT_P2;
#define IPTOS NEXT_INST	#define IPTOS NEXT_INST