From eed77f2ab5d68abad9b6de0b8b17e959d6b021b5 Mon Sep 17 00:00:00 2001 From: Ian Lynagh Date: Sun, 15 Jun 2008 13:37:43 +0000 Subject: [PATCH] Remove an ifdef --- compiler/ghci/ByteCodeItbls.lhs | 8 +++----- 1 file changed, 3 insertions(+), 5 deletions(-) diff --git a/compiler/ghci/ByteCodeItbls.lhs b/compiler/ghci/ByteCodeItbls.lhs index a05cfc1..fd39e44 100644 --- a/compiler/ghci/ByteCodeItbls.lhs +++ b/compiler/ghci/ByteCodeItbls.lhs @@ -28,7 +28,7 @@ import TyCon ( TyCon, tyConFamilySize, isDataTyCon, tyConDataCons ) import Constants ( mIN_PAYLOAD_SIZE, wORD_SIZE ) import CgHeapery ( mkVirtHeapOffsets ) import FastString ( FastString(..) ) -import Util ( lengthIs, listLengthCmp ) +import Util import Outputable import Foreign @@ -54,10 +54,8 @@ newtype ItblPtr = ItblPtr (Ptr ()) deriving Show itblCode :: ItblPtr -> Ptr () itblCode (ItblPtr ptr) - = (castPtr ptr) -#ifdef GHCI_TABLES_NEXT_TO_CODE - `plusPtr` conInfoTableSizeB -#endif + | ghciTablesNextToCode = castPtr ptr `plusPtr` conInfoTableSizeB + | otherwise = castPtr ptr -- XXX bogus conInfoTableSizeB = 3 * wORD_SIZE -- 1.7.10.4