[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 (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(SpLim - RESERVED_STACK_WORDS <= Sp); \
+    ASSERT(SpLim - WDS(RESERVED_STACK_WORDS) <= Sp); \
     ASSERT(HpLim >= Hp);
 
 /* -----------------------------------------------------------------------------