[project @ 1997-07-25 23:25:40 by sof]

wibble

diff --git a/ghc/compiler/nativeGen/MachCode.lhs b/ghc/compiler/nativeGen/MachCode.lhs
index 128eeb6..96a148c 100644 (file)
--- a/ghc/compiler/nativeGen/MachCode.lhs
+++ b/ghc/compiler/nativeGen/MachCode.lhs
@@ -150,7 +150,7 @@ mangleIndexTree (StIndex pk base off)
                   StPrim SllOp [off, StInt s]
     ]
   where
-    shift DoubleRep    = 3
+    shift DoubleRep    = 3::Integer
     shift _            = IF_ARCH_alpha(3,2)
 \end{code}