From 6a7f4042bb71bc5eff550b7d6bdf79883997110c Mon Sep 17 00:00:00 2001
From: sof <unknown>
Date: Fri, 25 Jul 1997 23:25:40 +0000
Subject: [PATCH] [project @ 1997-07-25 23:25:40 by sof] wibble
---
ghc/compiler/nativeGen/MachCode.lhs | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/ghc/compiler/nativeGen/MachCode.lhs b/ghc/compiler/nativeGen/MachCode.lhs
index 128eeb65b4d2..96a148c3f7e5 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}
--
GitLab