From 3f7ae19bb39655bb9cee6df9b2f5460b7647c873 Mon Sep 17 00:00:00 2001
From: sewardj <unknown>
Date: Tue, 26 Feb 2002 12:52:58 +0000
Subject: [PATCH] [project @ 2002-02-26 12:52:58 by sewardj] Fix sparc
 borkage.

---
 ghc/compiler/ghci/ByteCodeItbls.lhs |    2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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
-- 
1.7.10.4