From 37f22a833c33c3ab504778fd91a39d8d48fa3766 Mon Sep 17 00:00:00 2001 From: Simon Marlow Date: Tue, 12 Jun 2007 07:46:57 +0000 Subject: [PATCH] fix compile error in the !GHCI_TABLES_NEXT_TO_CODE case --- compiler/ghci/Linker.lhs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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: -- 1.7.10.4