version 1.3, 1995/01/21 17:26:45
|
version 1.5, 1995/11/07 18:06:54
|
Line 1
|
Line 1
|
/* |
/* This is the machine-specific part for MIPS R[2346810]000 processors |
Copyright 1992 by the ANSI figForth Development Group |
|
|
|
This is the machine-specific part for MIPS R[2346810]000 processors |
Copyright (C) 1995 Free Software Foundation, Inc. |
|
|
|
This file is part of Gforth. |
|
|
|
Gforth is free software; you can redistribute it and/or |
|
modify it under the terms of the GNU General Public License |
|
as published by the Free Software Foundation; either version 2 |
|
of the License, or (at your option) any later version. |
|
|
|
This program is distributed in the hope that it will be useful, |
|
but WITHOUT ANY WARRANTY; without even the implied warranty of |
|
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the |
|
GNU General Public License for more details. |
|
|
|
You should have received a copy of the GNU General Public License |
|
along with this program; if not, write to the Free Software |
|
Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. |
*/ |
*/ |
|
|
#if !defined(USE_TOS) && !defined(USE_NO_TOS) |
#if !defined(USE_TOS) && !defined(USE_NO_TOS) |
Line 20
|
Line 35
|
#endif |
#endif |
#endif |
#endif |
|
|
#ifdef DIRECT_THREADED |
|
|
|
#ifdef ultrix |
#ifdef ultrix |
#include <mips/cachectl.h> |
#include <mips/cachectl.h> |
#else |
#else |
Line 29
|
Line 42
|
#include <sys/cachectl.h> |
#include <sys/cachectl.h> |
#endif |
#endif |
|
|
#define CACHE_FLUSH(addr,size) \ |
#define FLUSH_ICACHE(addr,size) \ |
cacheflush((char *)(addr), (int)(size), BCACHE) |
cacheflush((char *)(addr), (int)(size), BCACHE) |
|
|
#endif |
|
|
|
#include "32bit.h" |
#include "32bit.h" |
|
|
#ifdef DIRECT_THREADED |
#ifdef DIRECT_THREADED |