diff options
Diffstat (limited to 'rts')
| -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); /* ----------------------------------------------------------------------------- |