ghc/includes/MachDeps.h

   1 /* -----------------------------------------------------------------------------
   2  * $Id: MachDeps.h,v 1.3 1999/02/05 16:02:23 simonm Exp $
   3  *
   4  * (c) The GRASP/AQUA Project, Glasgow University, 1998
   5  * (c) The GHC Team, 1998-1999
   6  *
   7  * Definitions that characterise machine specific properties of basic
   8  * Stg types provided as unboxed types (mirrors the typedefs in
   9  * StgTypes.)
  10  *
  11  * NB: THIS FILE IS INCLUDED IN HASKELL SOURCE!
  12  * ---------------------------------------------------------------------------*/
  13
  14 #ifndef MACHDEPS_H
  15 #define MACHDEPS_H
  16
  17 #include "config.h"
  18
  19 #define CHAR_SIZE_IN_BYTES      1
  20 #define ADDR_SIZE_IN_BYTES      SIZEOF_VOID_P
  21 #define INT_SIZE_IN_BYTES       SIZEOF_LONG
  22 #define WORD_SIZE_IN_BYTES      SIZEOF_LONG
  23
  24 #if SIZEOF_DOUBLE == SIZEOF_VOID_P
  25 #define FLOAT_SIZE_IN_BYTES     SIZEOF_DOUBLE
  26 #define DOUBLE_SIZE_IN_BYTES    SIZEOF_DOUBLE
  27 #else
  28 #define FLOAT_SIZE_IN_BYTES     SIZEOF_FLOAT
  29 #define DOUBLE_SIZE_IN_BYTES    SIZEOF_DOUBLE
  30 #endif
  31
  32 #endif