diff options
Diffstat (limited to 'compiler/main/StaticPtrTable.hs')
| -rw-r--r-- | compiler/main/StaticPtrTable.hs | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/compiler/main/StaticPtrTable.hs b/compiler/main/StaticPtrTable.hs index 9f327c90d9..4f67ba0190 100644 --- a/compiler/main/StaticPtrTable.hs +++ b/compiler/main/StaticPtrTable.hs @@ -233,9 +233,10 @@ sptCreateStaticBinds hsc_env this_mod binds -- Choose either 'Word64#' or 'Word#' to represent the arguments of the -- 'Fingerprint' data constructor. - mkWord64LitWordRep dflags - | platformWordSize (targetPlatform dflags) < 8 = mkWord64LitWord64 - | otherwise = mkWordLit dflags . toInteger + mkWord64LitWordRep dflags = + case platformWordSize (targetPlatform dflags) of + PW4 -> mkWord64LitWord64 + PW8 -> mkWordLit dflags . toInteger lookupIdHscEnv :: Name -> IO Id lookupIdHscEnv n = lookupTypeHscEnv hsc_env n >>= |