gforth/power.h - diff

Return to power.h CVS log

Up to [gforth] / gforth

version 1.1, 1995/01/18 18:41:42	version 1.2, 1995/10/07 17:38:18
Line 17	Line 17
#include "32bit.h"	#include "32bit.h"

/* cache flush stuff */	/* cache flush stuff */
#ifdef DIRECT_THREADED
#warning Direct threading for Power has not been tested

#warning If you get assembly errors, here is the reason why	#warning If you get assembly errors, here is the reason why
#define CACHE_FLUSH(addr,size) asm("icbi (%0); isync"::"b"(addr))	#define FLUSH_ICACHE(addr,size) asm("icbi (%0); isync"::"b"(addr))
/* this assumes size=4 */	/* this assumes size=4 */
/* the mnemonics are for the PPC and the syntax is a wild guess; for	/* the mnemonics are for the PPC and the syntax is a wild guess; for
Power the mnemonic for the isync instruction is "ics" and I have	Power the mnemonic for the isync instruction is "ics" and I have
not found an equivalent for the icbi instruction in my reference.	not found an equivalent for the icbi instruction in my reference.
*/	*/

	#ifdef DIRECT_THREADED
	#warning Direct threading for Power has not been tested

/* 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 */