Repository : ssh://darcs.haskell.org//srv/darcs/ghc On branch : master
http://hackage.haskell.org/trac/ghc/changeset/afd7e22d4082e9f39432dfb18382759652615005 >--------------------------------------------------------------- commit afd7e22d4082e9f39432dfb18382759652615005 Author: Simon Marlow <marlo...@gmail.com> Date: Mon Nov 5 15:42:27 2012 +0000 assert HpAlloc == 0 >--------------------------------------------------------------- rts/StgStartup.cmm | 9 +++++---- 1 files changed, 5 insertions(+), 4 deletions(-) diff --git a/rts/StgStartup.cmm b/rts/StgStartup.cmm index 5ad2ff6..dcc0383 100644 --- a/rts/StgStartup.cmm +++ b/rts/StgStartup.cmm @@ -24,10 +24,11 @@ * to the scheduler marking the thread as finished. */ -#define CHECK_SENSIBLE_REGS() \ - ASSERT(Hp != 0); \ - ASSERT(Sp != 0); \ - ASSERT(SpLim != 0); \ +#define CHECK_SENSIBLE_REGS() \ + ASSERT(Hp != 0); \ + ASSERT(HpAlloc == 0); \ + ASSERT(Sp != 0); \ + ASSERT(SpLim != 0); \ ASSERT(SpLim - WDS(RESERVED_STACK_WORDS) <= Sp); /* ----------------------------------------------------------------------------- _______________________________________________ Cvs-ghc mailing list Cvs-ghc@haskell.org http://www.haskell.org/mailman/listinfo/cvs-ghc
