gforth/386.h - diff

Return to 386.h CVS log

Up to [gforth] / gforth

version 1.4, 1994/09/09 16:27:15	version 1.5, 1994/09/28 17:02:44
Line 37 typedef float SFloat;	Line 37 typedef float SFloat;
#define PFA1(cfa) PFA(cfa)	#define PFA1(cfa) PFA(cfa)
/* CODE_ADDRESS is the address of the code jumped to through the code field */	/* CODE_ADDRESS is the address of the code jumped to through the code field */
#define CODE_ADDRESS(cfa) \	#define CODE_ADDRESS(cfa) \
({long _cfa = (char )(cfa); (Label)(_cfa+((long *)(_cfa+1))+5);})	({long _cfa = (long)(cfa); (Label)(_cfa+((long )(_cfa+1))+5);})
/* MAKE_CF creates an appropriate code field at the cfa; ca is the code address */	/* MAKE_CF creates an appropriate code field at the cfa; ca is the code address */
#define MAKE_CF(cfa,ca) ({long _cfa = (long)(cfa); \	#define MAKE_CF(cfa,ca) ({long _cfa = (long)(cfa); \
long _ca = (long)(ca); \	long _ca = (long)(ca); \