From: panne <unknown>
Date: Tue, 11 Dec 2001 20:14:57 +0000 (+0000)
Subject: [project @ 2001-12-11 20:14:57 by panne]
X-Git-Tag: Approximately_9120_patches~411
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=8f9f8828209736659b3529924cfbc2c67900fcb6;p=ghc-hetmet.git

[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
--- 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