Commit 37f22a83 authored by Simon Marlow's avatar Simon Marlow
Browse files

fix compile error in the !GHCI_TABLES_NEXT_TO_CODE case

parent 4c1a1e30
......@@ -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:
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment