From 1db24428fa0bcf32f2e667d01bf416cc2d8035f7 Mon Sep 17 00:00:00 2001
From: simonmar <unknown>
Date: Mon, 6 Sep 1999 14:59:09 +0000
Subject: [PATCH] [project @ 1999-09-06 14:57:30 by simonmar] fromInt stuff
---
ghc/compiler/nativeGen/AbsCStixGen.lhs | 2 +-
ghc/compiler/nativeGen/StixInfo.lhs | 4 ++++
2 files changed, 5 insertions(+), 1 deletion(-)
diff --git a/ghc/compiler/nativeGen/AbsCStixGen.lhs b/ghc/compiler/nativeGen/AbsCStixGen.lhs
index 4c7553f27a09..7c943b404c50 100644
--- a/ghc/compiler/nativeGen/AbsCStixGen.lhs
+++ b/ghc/compiler/nativeGen/AbsCStixGen.lhs
@@ -416,7 +416,7 @@ be tuned.)
\begin{code}
intTag :: Literal -> Integer
- intTag (MachChar c) = fromInt (ord c)
+ intTag (MachChar c) = toInteger (ord c)
intTag (MachInt i _) = i
intTag _ = panic "intTag"
diff --git a/ghc/compiler/nativeGen/StixInfo.lhs b/ghc/compiler/nativeGen/StixInfo.lhs
index b72675f18530..17bbf98d5509 100644
--- a/ghc/compiler/nativeGen/StixInfo.lhs
+++ b/ghc/compiler/nativeGen/StixInfo.lhs
@@ -25,6 +25,10 @@ import BitSet ( intBS )
import Bits
import Word
+
+#if __GLASGOW_HASKELL__ >= 404
+import GlaExts ( fromInt )
+#endif
\end{code}
Generating code for info tables (arrays of data).
--
GitLab