From 6e2d8924a88770a373715dc69841978f58146ef6 Mon Sep 17 00:00:00 2001
From: simonm <unknown>
Date: Thu, 14 Jan 1999 14:43:46 +0000
Subject: [PATCH] [project @ 1999-01-14 14:43:46 by simonm] Oops, stack check
in PAP_entry was *completely* wrong. Time for a stack check audit.
---
ghc/rts/Updates.hc | 4 ++--
1 file changed, 2 insertions(+), 2 deletions(-)
diff --git a/ghc/rts/Updates.hc b/ghc/rts/Updates.hc
index 0fcd446a62cd..a74e805a5262 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);
--
GitLab