X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;ds=sidebyside;f=ghc%2Frts%2FApply.cmm;h=8d19d1402f0453e0eb6834b6316c6c57d101789c;hb=beb5737b7ee42c4e9373a505e7d957206d69a30e;hp=a647b3754a32ce026994a095d9ea216b9896a7bd;hpb=76e3742711eb9eb2fed7654c56e602b54c517e87;p=ghc-hetmet.git

diff --git a/ghc/rts/Apply.cmm b/ghc/rts/Apply.cmm
index a647b37..8d19d14 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_StgThunkHeader + OFFSET_StgAP_STACK_payload;
+  p = ap + SIZEOF_StgHeader + OFFSET_StgAP_STACK_payload;
   i = 0;
 for:
   if (i < Words) {