From: simonmar <unknown>
Date: Thu, 24 Nov 2005 10:41:57 +0000 (+0000)
Subject: [project @ 2005-11-24 10:41:57 by simonmar]
X-Git-Tag: Initial_conversion_from_CVS_complete~22
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=21f6b31c31b924b9bb572175f34c1408522fba48;p=ghc-hetmet.git

[project @ 2005-11-24 10:41:57 by simonmar]
wibble
---

diff --git a/ghc/rts/Updates.h b/ghc/rts/Updates.h
index 33d7d25..37bb9a2 100644
--- a/ghc/rts/Updates.h
+++ b/ghc/rts/Updates.h
@@ -264,8 +264,8 @@ DEBUG_FILL_SLOP(StgClosure *p)
     W_ bd;							\
 								\
     DEBUG_FILL_SLOP(p1);					\
-    StgInd_indirectee(p1) = p2;					\
     LDV_RECORD_DEAD_FILL_SLOP_DYNAMIC(p1);			\
+    StgInd_indirectee(p1) = p2;					\
     bd = Bdescr(p1);						\
     if (bdescr_gen_no(bd) != 0 :: CInt) {			\
       foreign "C" recordMutableCap(p1 "ptr",			\