From: simonmar <unknown>
Date: Mon, 25 Apr 2005 15:56:19 +0000 (+0000)
Subject: [project @ 2005-04-25 15:56:19 by simonmar]
X-Git-Tag: Initial_conversion_from_CVS_complete~672
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=17118d27f6f7abbe495fec45a620823a42395a0d;p=ghc-hetmet.git

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