From: Simon Marlow <simonmar@microsoft.com>
Date: Tue, 12 Jun 2007 07:46:57 +0000 (+0000)
Subject: fix compile error in the !GHCI_TABLES_NEXT_TO_CODE case
X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=commitdiff_plain;h=37f22a833c33c3ab504778fd91a39d8d48fa3766

fix compile error in the !GHCI_TABLES_NEXT_TO_CODE case
---

diff --git a/compiler/ghci/Linker.lhs b/compiler/ghci/Linker.lhs
index 76e9f31..fe009c2 100644
--- a/compiler/ghci/Linker.lhs
+++ b/compiler/ghci/Linker.lhs
@@ -223,7 +223,7 @@ dataConInfoPtrToName x = do
        offsetToString <- peek $ ptr `plusPtr` (- wORD_SIZE)
        return $ (ptr `plusPtr` stdInfoTableSizeB) `plusPtr` (fromIntegral (offsetToString :: StgWord))
 #else
-       peek $ intPtrToPtr $ (ptrToIntPtr ptr) + stdInfoTableSizeB
+       peek $ intPtrToPtr $ (ptrToIntPtr ptr) + fromIntegral stdInfoTableSizeB
 #endif
 
    -- parsing names is a little bit fiddly because we have a string in the form: