gforth/sparc.h - diff

Return to sparc.h CVS log

Up to [gforth] / gforth

version 1.7, 1995/01/05 22:33:19	version 1.8, 1995/01/10 18:34:29
Line 1	Line 1
/*	/*
	$Id$
Copyright 1992 by the ANSI figForth Development Group	Copyright 1992 by the ANSI figForth Development Group

This is the machine-specific part for a SPARC	This is the machine-specific part for a SPARC
Line 21	Line 22
*/	*/
#endif	#endif

#ifdef undefined
/* according to the SPARC V9 architecture manual, we have to use flush,	/* according to the SPARC V9 architecture manual, we have to use flush,
but as V2.20 does not recognize the opcode */	but as V2.20 does not recognize the opcode */
/* assuming size = 8 */	/* assuming size = 8 */
#define CACHE_FLUSH(addr,size) \	#define CACHE_FLUSH(addr,size) \
asm("flush %0; flush %0+4"::"r"(addr))	asm("iflush %0; iflush %0+4"::"r"(addr))
#endif

/* PFA gives the parameter field address corresponding to a cfa */	/* PFA gives the parameter field address corresponding to a cfa */
#define PFA(cfa) (((Cell *)cfa)+2)	#define PFA(cfa) (((Cell *)cfa)+2)