diff options
Diffstat (limited to 'compiler/ghci/ByteCodeItbls.hs')
| -rw-r--r-- | compiler/ghci/ByteCodeItbls.hs | 6 |
1 files changed, 1 insertions, 5 deletions
diff --git a/compiler/ghci/ByteCodeItbls.hs b/compiler/ghci/ByteCodeItbls.hs index 7381c8f926..84041437be 100644 --- a/compiler/ghci/ByteCodeItbls.hs +++ b/compiler/ghci/ByteCodeItbls.hs @@ -13,7 +13,6 @@ import GhcPrelude import ByteCodeTypes import GHCi -import DynFlags import HscTypes import Name ( Name, getName ) import NameEnv @@ -65,12 +64,9 @@ make_constr_itbls hsc_env cons = ptrs' = ptr_wds nptrs' = tot_wds - ptr_wds - nptrs_really - | ptrs' + nptrs' >= mIN_PAYLOAD_SIZE dflags = nptrs' - | otherwise = mIN_PAYLOAD_SIZE dflags - ptrs' descr = dataConIdentity dcon - r <- iservCmd hsc_env (MkConInfoTable ptrs' nptrs_really + r <- iservCmd hsc_env (MkConInfoTable ptrs' nptrs' conNo (tagForCon dflags dcon) descr) return (getName dcon, ItblPtr r) |