X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=rts%2FApply.cmm;h=0498f009b875be6bcb196fb21f27468a90e4f481;hb=e05f9de137269701df667b69d741dfae616694f7;hp=c9c7daa9acac28bf5af9f405738251dba0370bb0;hpb=0731082288212fbc6d68204b609f201b8a79149a;p=ghc-hetmet.git

diff --git a/rts/Apply.cmm b/rts/Apply.cmm
index c9c7daa..0498f00 100644
--- a/rts/Apply.cmm
+++ b/rts/Apply.cmm
@@ -249,7 +249,9 @@ INFO_TABLE(stg_AP_STACK,/*special layout*/0,0,AP_STACK,"AP_STACK","AP_STACK")
    * closure, in which case we must enter the blackhole on return rather
    * than continuing to evaluate the now-defunct closure.
    */
-  STK_CHK_NP(WDS(Words) + SIZEOF_StgUpdateFrame);
+  STK_CHK_NP(WDS(Words) + SIZEOF_StgUpdateFrame + WDS(AP_STACK_SPLIM));
+  /* ensure there is at least AP_STACK_SPLIM words of headroom available
+   * after unpacking the AP_STACK. See bug #1466 */
 
   PUSH_UPD_FRAME(Sp - SIZEOF_StgUpdateFrame, R1);
   Sp = Sp - SIZEOF_StgUpdateFrame - WDS(Words);