From: simonmar <unknown>
Date: Mon, 6 Sep 1999 14:59:09 +0000 (+0000)
Subject: [project @ 1999-09-06 14:57:30 by simonmar]
X-Git-Tag: Approximately_9120_patches~5836
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=1db24428fa0bcf32f2e667d01bf416cc2d8035f7;p=ghc-hetmet.git

[project @ 1999-09-06 14:57:30 by simonmar]
fromInt stuff
---

diff --git a/ghc/compiler/nativeGen/AbsCStixGen.lhs b/ghc/compiler/nativeGen/AbsCStixGen.lhs
index 4c7553f..7c943b4 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 b72675f..17bbf98 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).