diff options
| author | Simon Marlow <marlowsd@gmail.com> | 2012-11-05 15:42:27 +0000 |
|---|---|---|
| committer | Simon Marlow <marlowsd@gmail.com> | 2012-11-12 15:27:02 +0000 |
| commit | afd7e22d4082e9f39432dfb18382759652615005 (patch) | |
| tree | f57b8c880b1edb2d37bef7b0ddef8db176bd1923 /rts/StgStartup.cmm | |
| parent | e15981a16c832b8cd7dbba676399fd555a379272 (diff) | |
| download | haskell-afd7e22d4082e9f39432dfb18382759652615005.tar.gz | |
assert HpAlloc == 0
Diffstat (limited to 'rts/StgStartup.cmm')
| -rw-r--r-- | rts/StgStartup.cmm | 9 |
1 files changed, 5 insertions, 4 deletions
diff --git a/rts/StgStartup.cmm b/rts/StgStartup.cmm index 5ad2ff6930..dcc038374c 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); /* ----------------------------------------------------------------------------- |