From: simonmar <unknown>
Date: Tue, 8 Nov 2005 11:02:56 +0000 (+0000)
Subject: [project @ 2005-11-08 11:02:56 by simonmar]
X-Git-Tag: Initial_conversion_from_CVS_complete~61
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=fd8ddfb9514a2d28352e052aae2ff04368d4bc10;p=ghc-hetmet.git

[project @ 2005-11-08 11:02:56 by simonmar]
Fix bug in an assertion
---

diff --git a/ghc/rts/StgStartup.cmm b/ghc/rts/StgStartup.cmm
index eff3761..3569a39 100644
--- a/ghc/rts/StgStartup.cmm
+++ b/ghc/rts/StgStartup.cmm
@@ -29,7 +29,7 @@
     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);
 
 /* -----------------------------------------------------------------------------