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