projects
/
ghc-hetmet.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
16f1489
)
[project @ 1999-01-14 14:35:04 by simonm]
author
simonm
<unknown>
Thu, 14 Jan 1999 14:35:04 +0000
(14:35 +0000)
committer
simonm
<unknown>
Thu, 14 Jan 1999 14:35:04 +0000
(14:35 +0000)
- fix stack check in PAP_entry.
ghc/rts/Updates.hc
patch
|
blob
|
history
diff --git
a/ghc/rts/Updates.hc
b/ghc/rts/Updates.hc
index
012a88d
..
0fcd446
100644
(file)
--- a/
ghc/rts/Updates.hc
+++ b/
ghc/rts/Updates.hc
@@
-1,5
+1,5
@@
/* -----------------------------------------------------------------------------
- * $Id: Updates.hc,v 1.3 1999/01/13 17:25:49 simonm Exp $
+ * $Id: Updates.hc,v 1.4 1999/01/14 14:35:04 simonm Exp $
*
* Code to perform updates.
*
@@
-173,7
+173,7
@@
STGFUN(PAP_entry)
/*
* Check for stack overflow.
*/
- STK_CHK(Words,PAP_entry,R2.p,1,);
+ STK_CHK(Words,PAP_entry,R1.p,1,);
Sp -= Words;
TICK_ENT_PAP(pap);