gforth/power.h - diff

Return to power.h CVS log

Up to [gforth] / gforth

version 1.4, 1996/07/26 15:28:30	version 1.5, 1996/07/26 16:16:55
Line 72	Line 72
starts. Since a branch is only a cell on Power, we can use the	starts. Since a branch is only a cell on Power, we can use the
second cell of the cfa for storing the does address */	second cell of the cfa for storing the does address */
#define DOES_CODE(cfa) \	#define DOES_CODE(cfa) \
({ unsigned *_cfa=(unsigned)(cfa); \	({ unsigned _cfa=(unsigned )(cfa); \
_cfa[0]==(0x48000002\|&&docol) ? DOES_CODE1(_cfa) : 0; })	_cfa[0]==(0x48000002\|&&docol) ? DOES_CODE1(_cfa) : 0; })