From 8f9f8828209736659b3529924cfbc2c67900fcb6 Mon Sep 17 00:00:00 2001
From: panne <unknown>
Date: Tue, 11 Dec 2001 20:14:57 +0000
Subject: [PATCH] [project @ 2001-12-11 20:14:57 by panne] Never-ending story,
 part #2: The shifting continues...

---
 ghc/compiler/basicTypes/UniqSupply.lhs |    5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

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