1 /* -----------------------------------------------------------------------------
2 * $Id: MachDeps.h,v 1.3 1999/02/05 16:02:23 simonm Exp $
4 * (c) The GRASP/AQUA Project, Glasgow University, 1998
5 * (c) The GHC Team, 1998-1999
7 * Definitions that characterise machine specific properties of basic
8 * Stg types provided as unboxed types (mirrors the typedefs in
11 * NB: THIS FILE IS INCLUDED IN HASKELL SOURCE!
12 * ---------------------------------------------------------------------------*/
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
24 #if SIZEOF_DOUBLE == SIZEOF_VOID_P
25 #define FLOAT_SIZE_IN_BYTES SIZEOF_DOUBLE
26 #define DOUBLE_SIZE_IN_BYTES SIZEOF_DOUBLE
28 #define FLOAT_SIZE_IN_BYTES SIZEOF_FLOAT
29 #define DOUBLE_SIZE_IN_BYTES SIZEOF_DOUBLE