From 17118d27f6f7abbe495fec45a620823a42395a0d Mon Sep 17 00:00:00 2001
From: simonmar <unknown>
Date: Mon, 25 Apr 2005 15:56:19 +0000
Subject: [PATCH] [project @ 2005-04-25 15:56:19 by simonmar] scavenge_one:
 fix reversed PAP/AP cases

---
 ghc/rts/GC.c |    4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

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:
-- 
1.7.10.4