fix pointer tagging bug in removeIndirections (fixes stableptr003)

ddd8dea0 · Simon Marlow · bf0ab2d9 · ddd8dea0
Commit ddd8dea0 authored Jun 04, 2008 by Simon Marlow
Hide whitespace changes
Inline Side-by-side

Showing with 3 additions and 1 deletion

rts/Stable.c rts/Stable.c +3 -1

No files found.
--- a/rts/Stable.c
+++ b/rts/Stable.c
@@ -195,9 +195,11 @@ removeIndirections(StgClosure* p)
         get_itbl(q)->type == IND_OLDGEN ||
         get_itbl(q)->type == IND_PERM ||
         get_itbl(q)->type == IND_OLDGEN_PERM ) {
+      q = ((StgInd *)q)->indirectee;
      tag = GET_CLOSURE_TAG(q);
-      q = UNTAG_CLOSURE(((StgInd *)q)->indirectee);
+      q = UNTAG_CLOSURE(q);
  }
+
  return TAG_CLOSURE(tag,q);
 }