[Git][ghc/ghc][wip/buggymcbugfix/15185-enum-int] fixup! Piggyback on Enum Word methods for Word64

[Vilem-Benjamin Liepelt]

Vilem-Benjamin Liepelt pushed to branch wip/buggymcbugfix/15185-enum-int at Glasgow Haskell Compiler / GHC


Commits:
055c2a92 by buggymcbugfix at 2020-05-16T22:09:58+03:00
fixup! Piggyback on Enum Word methods for Word64

- - - - -


1 changed file:

- libraries/base/GHC/Word.hs


Changes:

=====================================
libraries/base/GHC/Word.hs
=====================================
@@ -894,33 +894,30 @@ instance Enum Word64 where
         | otherwise     = fromEnumError "Word64" x
 
 #if WORD_SIZE_IN_BITS < 64
-    {-# INLINABLE enumFrom #-}
-    enumFrom = integralEnumFrom
-
-    {-# INLINABLE enumFromThen #-}
-    enumFromThen = integralEnumFromThen
-
-    {-# INLINABLE enumFromTo #-}
-    enumFromTo = integralEnumFromTo
-
-    {-# INLINABLE enumFromThenTo #-}
+    enumFrom       = integralEnumFrom
+    enumFromThen   = integralEnumFromThen
+    enumFromTo     = integralEnumFromTo
     enumFromThenTo = integralEnumFromThenTo
 #else
+    -- See Note [Stable Unfolding for list producers] in GHC.Enum
     {-# INLINABLE enumFrom #-}
     enumFrom w
         = map wordToWord64
         $ enumFrom (word64ToWord w)
 
+    -- See Note [Stable Unfolding for list producers] in GHC.Enum
     {-# INLINABLE enumFromThen #-}
     enumFromThen w s
         = map wordToWord64
         $ enumFromThen (word64ToWord w) (word64ToWord s)
 
+    -- See Note [Stable Unfolding for list producers] in GHC.Enum
     {-# INLINABLE enumFromTo #-}
     enumFromTo w1 w2
         = map wordToWord64
         $ enumFromTo (word64ToWord w1) (word64ToWord w2)
 
+    -- See Note [Stable Unfolding for list producers] in GHC.Enum
     {-# INLINABLE enumFromThenTo #-}
     enumFromThenTo w1 s w2
         = map wordToWord64



View it on GitLab: https://gitlab.haskell.org/ghc/ghc/-/commit/055c2a92d1215f6b076818254c6834a84bb51d0c

-- 
View it on GitLab: https://gitlab.haskell.org/ghc/ghc/-/commit/055c2a92d1215f6b076818254c6834a84bb51d0c
You're receiving this email because of your account on gitlab.haskell.org.


-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://mail.haskell.org/pipermail/ghc-commits/attachments/20200516/a5b9d865/attachment-0001.html>