diff options
| author | Ian Lynagh <ian@well-typed.com> | 2012-09-16 17:45:03 +0100 |
|---|---|---|
| committer | Ian Lynagh <ian@well-typed.com> | 2012-09-16 17:45:03 +0100 |
| commit | 17910899dacc892fd652d9206340d2bc2b2c5fc1 (patch) | |
| tree | c39b870bea8c77390c19e6d9694d38aa931fc2ed /includes | |
| parent | a62b56ef0b9d1750289ffd3f77b578dc73452374 (diff) | |
| download | haskell-17910899dacc892fd652d9206340d2bc2b2c5fc1.tar.gz | |
Move wORD_SIZE into platformConstants
Diffstat (limited to 'includes')
| -rw-r--r-- | includes/HaskellConstants.hs | 5 | ||||
| -rw-r--r-- | includes/mkDerivedConstants.c | 3 |
2 files changed, 3 insertions, 5 deletions
diff --git a/includes/HaskellConstants.hs b/includes/HaskellConstants.hs index 33108f2eb7..5b9a5ba1ac 100644 --- a/includes/HaskellConstants.hs +++ b/includes/HaskellConstants.hs @@ -42,11 +42,6 @@ dOUBLE_SIZE = SIZEOF_DOUBLE wORD64_SIZE :: Int wORD64_SIZE = 8 --- Size of a word, in bytes - -wORD_SIZE :: Int -wORD_SIZE = SIZEOF_HSWORD - -- Define a fixed-range integral type equivalent to the target Int/Word #if SIZEOF_HSWORD == 4 diff --git a/includes/mkDerivedConstants.c b/includes/mkDerivedConstants.c index 609c7aed31..a6d2230d6e 100644 --- a/includes/mkDerivedConstants.c +++ b/includes/mkDerivedConstants.c @@ -683,6 +683,9 @@ main(int argc, char *argv[]) // own stack check (see bug #1466). constantInt("aP_STACK_SPLIM", AP_STACK_SPLIM); + // Size of a word, in bytes + constantInt("wORD_SIZE", SIZEOF_HSWORD); + switch (mode) { case Gen_Haskell_Type: printf(" } deriving (Read, Show)\n"); |