version 1.2, 1998/07/05 20:50:02
|
version 1.3, 1998/10/25 23:15:47
|
Line 21
|
Line 21
|
Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. |
Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. |
*/ |
*/ |
|
|
/* define this if IEEE singles and doubles are available as C data types */ |
|
#define IEEE_FP |
|
|
|
/* the IEEE types are used only for loading and storing */ |
|
/* the IEEE double precision type */ |
|
typedef double DFloat; |
|
/* the IEEE single precision type */ |
|
typedef float SFloat; |
|
|
|
/* define SYSCALL */ |
/* define SYSCALL */ |
|
|
#ifndef SYSCALL |
#ifndef SYSCALL |
Line 55 typedef float SFloat;
|
Line 46 typedef float SFloat;
|
we could not use this file in the other machine.h files */ |
we could not use this file in the other machine.h files */ |
#endif |
#endif |
|
|
|
/* Types: these types are used as Forth's internal types */ |
|
|
|
/* define this if IEEE singles and doubles are available as C data types */ |
|
#define IEEE_FP |
|
|
|
/* the IEEE types are used only for loading and storing */ |
|
/* the IEEE double precision type */ |
|
typedef double DFloat; |
|
/* the IEEE single precision type */ |
|
typedef float SFloat; |
|
|
|
typedef CELL_TYPE Cell; |
|
typedef unsigned CELL_TYPE UCell; |
|
typedef Cell Bool; |
|
typedef unsigned char Char; |
|
typedef double Float; |
|
typedef Char *Address; |
|
|
|
#if defined(DOUBLY_INDIRECT) |
|
typedef void **Label; |
|
#else /* !defined(DOUBLY_INDIRECT) */ |
|
typedef void *Label; |
|
#endif /* !defined(DOUBLY_INDIRECT) */ |
|
|