From: simonm <unknown>
Date: Thu, 14 Jan 1999 14:43:46 +0000 (+0000)
Subject: [project @ 1999-01-14 14:43:46 by simonm]
X-Git-Tag: Approx_2487_patches~117
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=6e2d8924a88770a373715dc69841978f58146ef6;p=ghc-hetmet.git

[project @ 1999-01-14 14:43:46 by simonm]
Oops, stack check in PAP_entry was *completely* wrong.  Time for a
stack check audit.
---

diff --git a/ghc/rts/Updates.hc b/ghc/rts/Updates.hc
index 0fcd446..a74e805 100644
--- a/ghc/rts/Updates.hc
+++ b/ghc/rts/Updates.hc
@@ -1,5 +1,5 @@
 /* -----------------------------------------------------------------------------
- * $Id: Updates.hc,v 1.4 1999/01/14 14:35:04 simonm Exp $
+ * $Id: Updates.hc,v 1.5 1999/01/14 14:43:46 simonm Exp $
  *
  * Code to perform updates.
  *
@@ -173,7 +173,7 @@ STGFUN(PAP_entry)
   /* 
    * Check for stack overflow.
    */
-  STK_CHK(Words,PAP_entry,R1.p,1,);
+  STK_CHK_NP(Words,1,);
   Sp -= Words;
 
   TICK_ENT_PAP(pap);