[project @ 2001-12-11 20:14:57 by panne]

Never-ending story, part #2: The shifting continues...

diff --git a/ghc/compiler/basicTypes/UniqSupply.lhs b/ghc/compiler/basicTypes/UniqSupply.lhs
index 218df9e..b1de3f3 100644 (file)
--- a/ghc/compiler/basicTypes/UniqSupply.lhs
+++ b/ghc/compiler/basicTypes/UniqSupply.lhs
@@ -72,8 +72,11 @@ uniqsFromSupply :: UniqSupply -> [Unique]    -- Infinite
 \begin{code}
 mkSplitUniqSupply (C# c#)
   = let
+#if __GLASGOW_HASKELL__ >= 503
+       mask# = (i2w (ord# c#)) `uncheckedShiftL#` (i2w_s 24#)
+#else
        mask# = (i2w (ord# c#)) `shiftL#` (i2w_s 24#)
-
+#endif
        -- here comes THE MAGIC:
 
        -- This is one of the most hammered bits in the whole compiler