From: Pepe Iborra <mnislaih@gmail.com>
Date: Fri, 28 Sep 2007 09:19:41 +0000 (+0000)
Subject: Following an indirection doesn't count as a RTTI step
X-Git-Tag: 2008-05-28~1161
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=ae5a7e5fe428fdf56c4c5228d5ff13b2e6c3f885;p=ghc-hetmet.git

Following an indirection doesn't count as a RTTI step
---

diff --git a/compiler/ghci/RtClosureInspect.hs b/compiler/ghci/RtClosureInspect.hs
index 4f9588f..c495229 100644
--- a/compiler/ghci/RtClosureInspect.hs
+++ b/compiler/ghci/RtClosureInspect.hs
@@ -587,7 +587,7 @@ cvObtainTerm hsc_env bound force mb_ty hval = runTR hsc_env $ do
 -- and showing the '_' is more useful.
       t | isThunk t && force -> seq a $ go (pred bound) tv ty a
 -- We always follow indirections 
-      Indirection _ -> go (pred bound) tv ty $! (ptrs clos ! 0)
+      Indirection _ -> go bound tv ty $! (ptrs clos ! 0)
  -- The interesting case
       Constr -> do
         Right dcname <- dataConInfoPtrToName (infoPtr clos)