gforth/sparc.h - diff

Return to sparc.h CVS log

Up to [gforth] / gforth

version 1.6, 1995/01/04 21:58:54	version 1.7, 1995/01/05 22:33:19
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 15	Line 14
tested? Therefore, DIRECT_THREADED is not defined */	tested? Therefore, DIRECT_THREADED is not defined */

#ifdef DIRECT_THREADED	#ifdef DIRECT_THREADED
	#ifndef WORDS_BIGENDIAN
	#error Direct threading only supported for big-endian machines.
	/* little endian SPARCs still store instructions in big-endian format,
	so you would have to reverse the instructions stores in the following
	*/
	#endif

	#ifdef undefined
	/* according to the SPARC V9 architecture manual, we have to use flush,
	but as V2.20 does not recognize the opcode */
	/* assuming size = 8 */
	#define CACHE_FLUSH(addr,size) \
	asm("flush %0; flush %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)
/* PFA1 is a special version for use just after a NEXT1 */	/* PFA1 is a special version for use just after a NEXT1 */