From fd8ddfb9514a2d28352e052aae2ff04368d4bc10 Mon Sep 17 00:00:00 2001
From: simonmar <unknown>
Date: Tue, 8 Nov 2005 11:02:56 +0000
Subject: [PATCH] [project @ 2005-11-08 11:02:56 by simonmar] Fix bug in an
 assertion

---
 ghc/rts/StgStartup.cmm |    2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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);
 
 /* -----------------------------------------------------------------------------
-- 
1.7.10.4