X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Frts%2FGC.c;h=e77cbf5d3046a57028406e599161eef3aaa53cab;hb=17118d27f6f7abbe495fec45a620823a42395a0d;hp=41ca61db0f2d222ee53f5a5e1720b978b317f240;hpb=b050008e923eb5542deb3a3f7034ffcb2cb26a12;p=ghc-hetmet.git

diff --git a/ghc/rts/GC.c b/ghc/rts/GC.c
index 41ca61d..e77cbf5 100644
--- a/ghc/rts/GC.c
+++ b/ghc/rts/GC.c
@@ -3368,11 +3368,11 @@ scavenge_one(StgPtr p)
     }
 
     case PAP:
-	p = scavenge_AP((StgAP *)p);
+	p = scavenge_PAP((StgPAP *)p);
 	break;
 
     case AP:
-	p = scavenge_PAP((StgPAP *)p);
+	p = scavenge_AP((StgAP *)p);
 	break;
 
     case ARR_WORDS: