From: simonmar <unknown>
Date: Fri, 12 Jan 2001 12:35:54 +0000 (+0000)
Subject: [project @ 2001-01-12 12:35:54 by simonmar]
X-Git-Tag: Approximately_9120_patches~2933
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=4efb6ede36e9a15336b5390864838464547f289b;p=ghc-hetmet.git

[project @ 2001-01-12 12:35:54 by simonmar]
fix some bogus conversions.
---

diff --git a/ghc/lib/std/PrelInt.lhs b/ghc/lib/std/PrelInt.lhs
index 1143e0c..28f2ca5 100644
--- a/ghc/lib/std/PrelInt.lhs
+++ b/ghc/lib/std/PrelInt.lhs
@@ -100,14 +100,13 @@ integerToInt8  = fromInteger
 integerToInt16 = fromInteger
 integerToInt32 = fromInteger
 
-int8ToInt16  (I8#  x) = I16# x
-int8ToInt32  (I8#  x) = I32# x
+int8ToInt16    = intToInt16 . int8ToInt
+int8ToInt32    = intToInt32 . int8ToInt
+int16ToInt32   = intToInt32 . int16ToInt
 
-int16ToInt8  (I16# x) = I8#  x
-int16ToInt32 (I16# x) = I32# x
-
-int32ToInt8  (I32# x) = I8#  x
-int32ToInt16 (I32# x) = I16# x
+int16ToInt8  (I16# x) = I8#  (intToInt8# x)
+int32ToInt8  (I32# x) = I8#  (intToInt8# x)
+int32ToInt16 (I32# x) = I16# (intToInt16# x)
 
 int8ToInteger  = toInteger
 int8ToInt64    = int32ToInt64 . int8ToInt32