gforth/engine/threaded.h - diff

Return to threaded.h CVS log

Up to [gforth] / gforth / engine

version 1.28, 2005/01/22 21:06:03	version 1.30, 2005/01/23 13:56:13
Line 91	Line 91

*/	*/

#define GOTO(target) do {(real_ca=(target));} while(0)	#ifdef GCC_PR15242_WORKAROUND
#define DO_GOTO goto before_goto	#define DO_GOTO goto before_goto
	#else
	#define DO_GOTO goto *real_ca
	#endif
	#ifndef GOTO_ALIGN
	#define GOTO_ALIGN
	#endif

	#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