[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 (file)
--- 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",                   \