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:
6e4e6a2
)
[project @ 2005-11-08 11:02:56 by simonmar]
author
simonmar
<unknown>
Tue, 8 Nov 2005 11:02:56 +0000
(11:02 +0000)
committer
simonmar
<unknown>
Tue, 8 Nov 2005 11:02:56 +0000
(11:02 +0000)
Fix bug in an assertion
ghc/rts/StgStartup.cmm
patch
|
blob
|
history
diff --git
a/ghc/rts/StgStartup.cmm
b/ghc/rts/StgStartup.cmm
index
eff3761
..
3569a39
100644
(file)
--- a/
ghc/rts/StgStartup.cmm
+++ b/
ghc/rts/StgStartup.cmm
@@
-29,7
+29,7
@@
ASSERT(Sp != 0); \
ASSERT(SpLim != 0); \
ASSERT(HpLim != 0); \
ASSERT(Sp != 0); \
ASSERT(SpLim != 0); \
ASSERT(HpLim != 0); \
- ASSERT(SpLim - RESERVED_STACK_WORDS <= Sp); \
+ ASSERT(SpLim - WDS(RESERVED_STACK_WORDS) <= Sp); \
ASSERT(HpLim >= Hp);
/* -----------------------------------------------------------------------------
ASSERT(HpLim >= Hp);
/* -----------------------------------------------------------------------------