From 8ffe6eb9e68b0e8508bd943d51f6575709865afd Mon Sep 17 00:00:00 2001
From: simonmar <unknown>
Date: Thu, 5 May 2005 11:33:10 +0000
Subject: [PATCH] [project @ 2005-05-05 11:33:10 by simonmar] AP_STACK fix for
 SMP

---
 ghc/rts/Apply.cmm |    2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/ghc/rts/Apply.cmm b/ghc/rts/Apply.cmm
index e4197ec..c627995 100644
--- a/ghc/rts/Apply.cmm
+++ b/ghc/rts/Apply.cmm
@@ -264,7 +264,7 @@ INFO_TABLE(stg_AP_STACK,/*special layout*/0,0,AP_STACK,"AP_STACK","AP_STACK")
   // Reload the stack
   W_ i;
   W_ p;
-  p = ap + SIZEOF_StgHeader + OFFSET_StgAP_STACK_payload;
+  p = ap + SIZEOF_StgThunkHeader + OFFSET_StgAP_STACK_payload;
   i = 0;
 for:
   if (i < Words) {
-- 
1.7.10.4