gforth/engine/forth.h - diff

Return to forth.h CVS log

Up to [gforth] / gforth / engine

version 1.43, 2003/01/08 10:25:34	version 1.44, 2003/01/10 21:19:59
Line 164 typedef Label *Xt;	Line 164 typedef Label *Xt;
/* make a code field for a defining-word-defined word */	/* make a code field for a defining-word-defined word */
#define MAKE_DOES_CF(cfa,does_code) ({MAKE_CF(cfa,DOES_CA); \	#define MAKE_DOES_CF(cfa,does_code) ({MAKE_CF(cfa,DOES_CA); \
((Cell *)cfa)[1] = (Cell)(does_code);})	((Cell *)cfa)[1] = (Cell)(does_code);})
/* the does handler resides between DOES> and the following Forth code */
/* not needed in indirect threaded code */
#if defined(DOUBLY_INDIRECT)
#define MAKE_DOES_HANDLER(addr) MAKE_CF(addr, ((Label)&symbols[DOESJUMP]))
#else /* !defined(DOUBLY_INDIRECT) */
#define MAKE_DOES_HANDLER(addr) ((void)0)
#endif /* !defined(DOUBLY_INDIRECT) */

#ifdef GFORTH_DEBUGGING	#ifdef GFORTH_DEBUGGING
#define NAME(string) { saved_ip=ip; asm(""); }	#define NAME(string) { saved_ip=ip; asm(""); }