X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Frts%2FStgStartup.cmm;fp=ghc%2Frts%2FStgStartup.cmm;h=3569a390bf5cc02a89d1d3f4d696f08dbf9e5e29;hb=fd8ddfb9514a2d28352e052aae2ff04368d4bc10;hp=eff376162ce93f47f1a63b70eef7dc447caa0e36;hpb=6e4e6a2a03482cb1a04e128136ea431236507342;p=ghc-hetmet.git

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