ghc/includes/MachDeps.h

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