diff options
| author | simonmar <unknown> | 2001-03-02 14:26:40 +0000 |
|---|---|---|
| committer | simonmar <unknown> | 2001-03-02 14:26:40 +0000 |
| commit | 5cd7cb62dcbdabac9f728208362e1a32d1b82c39 (patch) | |
| tree | 817e1c6f45c326d9c2e493a5e066694322e81018 | |
| parent | 2efbfc25ca8c9b79cc74a470c49a3cb73016d410 (diff) | |
| download | haskell-5cd7cb62dcbdabac9f728208362e1a32d1b82c39.tar.gz | |
[project @ 2001-03-02 14:26:40 by simonmar]
Another good bug: the stack check in the AP_UPD entry code was wrong.
This one is a definite source of crashes.
To be merged into the 4.08 branch.
| -rw-r--r-- | ghc/rts/Updates.hc | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/ghc/rts/Updates.hc b/ghc/rts/Updates.hc index 39c1c28fa5..dac564eaf3 100644 --- a/ghc/rts/Updates.hc +++ b/ghc/rts/Updates.hc @@ -1,5 +1,5 @@ /* ----------------------------------------------------------------------------- - * $Id: Updates.hc,v 1.31 2000/12/04 12:31:22 simonmar Exp $ + * $Id: Updates.hc,v 1.32 2001/03/02 14:26:40 simonmar Exp $ * * (c) The GHC Team, 1998-1999 * @@ -430,7 +430,7 @@ STGFUN(stg_AP_UPD_entry) /* * Check for stack overflow. */ - STK_CHK(Words+sizeofW(StgUpdateFrame),stg_AP_UPD_entry,R2.p,1,); + STK_CHK_GEN(Words+sizeofW(StgUpdateFrame), R1_PTR, stg_AP_UPD_entry, ); PUSH_UPD_FRAME(R1.p, 0); Sp -= sizeofW(StgUpdateFrame) + Words; |