[BACK]Return to machine.h CVS log [TXT] [DIR] Up to [gforth] / gforth / arch / generic

Diff for /gforth/arch/generic/machine.h between versions 1.1 and 1.5

version 1.1, 1997/09/01 23:08:23 version 1.5, 1998/12/08 22:02:54
Line 2 Line 2
   This is a generic file for 32-bit machines with IEEE FP arithmetic (no VMS).    This is a generic file for 32-bit machines with IEEE FP arithmetic (no VMS).
   It only supports indirect threading.    It only supports indirect threading.
   
   Copyright (C) 1995 Free Software Foundation, Inc.    Copyright (C) 1995,1998 Free Software Foundation, Inc.
   
   This file is part of Gforth.    This file is part of Gforth.
   
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 SYSCALL */
 #define IEEE_FP  
   
 /* the IEEE types are used only for loading and storing */  #ifndef SYSCALL
 /* the IEEE double precision type */  #define SYSCALL
 typedef double DFloat;  #endif
 /* the IEEE single precision type */  
 typedef float SFloat;  
   
 #ifndef USE_FTOS  #ifndef USE_FTOS
 #ifndef USE_NO_FTOS  #ifndef USE_NO_FTOS
Line 49  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) */
   
   /* feature defines */
   
   #define HAS_DCOMPS
   #define HAS_FILE
   #define HAS_FLOATING
   #define HAS_GLOCALS
   #define HAS_HASH
   #define HAS_OS
   #define HAS_XCONDS
Removed from v.1.1  
changed lines
  Added in v.1.5

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>