[project @ 1998-11-26 09:17:22 by sof]
[ghc-hetmet.git] / ghc / includes / MachDeps.lh
1 %
2 % (c) The GRASP Project, Glasgow University, 1998
3 %
4 \section[MachDeps]{Info/sizes of STG types}
5
6 NB: THIS FILE IS INCLUDED IN HASKELL SOURCE!
7
8 Definitions that characterise machine specific properties
9 of basic Stg types provided as unboxed types (mirrors the typedefs in StgTypes.)
10
11 \begin{code}
12 #ifndef MACHDEPS_H
13 #define MACHDEPS_H
14
15 #include "config.h"
16
17 #define CHAR_SIZE_IN_BYTES      1
18 #define ADDR_SIZE_IN_BYTES      SIZEOF_VOID_P
19 #define INT_SIZE_IN_BYTES       SIZEOF_LONG
20 #define WORD_SIZE_IN_BYTES      SIZEOF_LONG
21
22 #if alpha_TARGET_ARCH
23 #define FLOAT_SIZE_IN_BYTES     SIZEOF_DOUBLE
24 #define DOUBLE_SIZE_IN_BYTES    SIZEOF_DOUBLE
25 #else
26 #define FLOAT_SIZE_IN_BYTES     SIZEOF_FLOAT
27 #define DOUBLE_SIZE_IN_BYTES    SIZEOF_DOUBLE
28 #endif
29
30 #endif
31 \end{code}