[commit: ghc] master: assert HpAlloc == 0 (afd7e22)
Simon Marlow <[email protected]>
| Newsgroups | gmane.comp.lang.haskell.cvs.ghc |
|---|---|
| Message-ID | <[email protected]> |
Repository : ssh://darcs.haskell.org//srv/darcs/ghc On branch : master http://hackage.haskell.org/trac/ghc/changeset/afd7e22d4082e9f39432dfb18382759652615005 >--------------------------------------------------------------- commit afd7e22d4082e9f39432dfb18382759652615005 Author: Simon Marlow <[email protected]> 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); /* -----------------------------------------------------------------------------