From: sof <unknown>
Date: Fri, 25 Jul 1997 23:25:40 +0000 (+0000)
Subject: [project @ 1997-07-25 23:25:40 by sof]
X-Git-Tag: Approximately_1000_patches_recorded~214
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=6a7f4042bb71bc5eff550b7d6bdf79883997110c;p=ghc-hetmet.git

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