From: sewardj <unknown>
Date: Tue, 26 Feb 2002 12:52:58 +0000 (+0000)
Subject: [project @ 2002-02-26 12:52:58 by sewardj]
X-Git-Tag: Approx_11550_changesets_converted~2350
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=3f7ae19bb39655bb9cee6df9b2f5460b7647c873;p=ghc-hetmet.git

[project @ 2002-02-26 12:52:58 by sewardj]
Fix sparc borkage.
---

diff --git a/ghc/compiler/ghci/ByteCodeItbls.lhs b/ghc/compiler/ghci/ByteCodeItbls.lhs
index 7543aca..9dda624 100644
--- a/ghc/compiler/ghci/ByteCodeItbls.lhs
+++ b/ghc/compiler/ghci/ByteCodeItbls.lhs
@@ -133,7 +133,7 @@ ptrToInt (Ptr a#) = I# (addr2Int# a#)
 
 type ItblCode = Word32
 mkJumpToAddr a
-   = let w32 = fromIntegral ()
+   = let w32 = fromIntegral (ptrToInt a)
 
          hi22, lo10 :: Word32 -> Word32
          lo10 x = x .&. 0x3FF