version 1.2, 1995/01/18 18:41:41
|
version 1.3, 1995/10/07 17:38:17
|
Line 7
|
Line 7
|
|
|
#include "32bit.h" |
#include "32bit.h" |
|
|
#ifdef DIRECT_THREADED |
#define FLUSH_ICACHE(addr,size) cache_$clear() |
|
|
#define CACHE_FLUSH(addr,size) cache_$clear() |
|
/* Clearing the whole cache is a bit drastic, but this is the only |
/* Clearing the whole cache is a bit drastic, but this is the only |
cache control available on the apollo. |
cache control available on the apollo. |
*/ |
*/ |
|
|
|
#ifdef DIRECT_THREADED |
|
|
/* 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 */ |