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