Commit 1363f412 authored by Ian Lynagh's avatar Ian Lynagh
Browse files

Remove an ifdef

parent b0242d5a
......@@ -70,9 +70,7 @@ import Outputable
import FastString
import Panic
#ifndef GHCI_TABLES_NEXT_TO_CODE
import Constants ( wORD_SIZE )
#endif
import GHC.Arr ( Array(..) )
import GHC.Exts
......@@ -180,15 +178,17 @@ getClosureData :: a -> IO Closure
getClosureData a =
case unpackClosure# a of
(# iptr, ptrs, nptrs #) -> do
#ifndef GHCI_TABLES_NEXT_TO_CODE
-- the info pointer we get back from unpackClosure# is to the
-- beginning of the standard info table, but the Storable instance
-- for info tables takes into account the extra entry pointer
-- when !tablesNextToCode, so we must adjust here:
itbl <- peek (Ptr iptr `plusPtr` negate wORD_SIZE)
#else
itbl <- peek (Ptr iptr)
#endif
let iptr'
| ghciTablesNextToCode =
Ptr iptr
| otherwise =
-- the info pointer we get back from unpackClosure#
-- is to the beginning of the standard info table,
-- but the Storable instance for info tables takes
-- into account the extra entry pointer when
-- !ghciTablesNextToCode, so we must adjust here:
Ptr iptr `plusPtr` negate wORD_SIZE
itbl <- peek iptr'
let tipe = readCType (BCI.tipe itbl)
elems = fromIntegral (BCI.ptrs itbl)
ptrsList = Array 0 (elems - 1) elems ptrs
......
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