[project @ 2005-04-25 15:56:19 by simonmar]

scavenge_one: fix reversed PAP/AP cases

diff --git a/ghc/rts/GC.c b/ghc/rts/GC.c
index 41ca61d..e77cbf5 100644 (file)
--- 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: