gforth/apollo68k.h - diff

Return to apollo68k.h CVS log

Up to [gforth] / gforth

version 1.1, 1994/02/11 16:30:45	version 1.2, 1994/05/31 07:08:10
Line 39 typedef float SFloat;	Line 39 typedef float SFloat;
#define MAKE_CF(cfa,ca) ({short * _cfa = (short *)cfa; \	#define MAKE_CF(cfa,ca) ({short * _cfa = (short *)cfa; \
_cfa[0] = 0x4ef9; /* jmp.l */ \	_cfa[0] = 0x4ef9; /* jmp.l */ \
(long )(_cfa+1) = (long)(ca);})	(long )(_cfa+1) = (long)(ca);})
#endif

/* this is the point where the does code starts if label points to the	/* this is the point where the does code starts if label points to the
* jump dodoes */	* jump dodoes */
Line 52 typedef float SFloat;	Line 51 typedef float SFloat;
#define MAKE_DOESJUMP(ca) ({short * _ca = (short *)ca; \	#define MAKE_DOESJUMP(ca) ({short * _ca = (short *)ca; \
_ca[0] = 0x4ef9; /* jmp.l */ \	_ca[0] = 0x4ef9; /* jmp.l */ \
(long )(_ca+1) = (long)&&dodoes;})	(long )(_ca+1) = (long)&&dodoes;})
	#endif