diff options
| author | simonmar <unknown> | 2005-10-10 10:32:09 +0000 |
|---|---|---|
| committer | simonmar <unknown> | 2005-10-10 10:32:09 +0000 |
| commit | 74f4d30833166b780b708b161b03290bd0c8973c (patch) | |
| tree | 071acc5b6bf9260e79ac69bb79618d7893feb2f4 | |
| parent | 1b85a989e426c5399cbdb0be6379f343ca36d6fb (diff) | |
| download | haskell-74f4d30833166b780b708b161b03290bd0c8973c.tar.gz | |
[project @ 2005-10-10 10:32:09 by simonmar]
Fix bug in previous commit (fixes recent seg faults in nightly stage2)
| -rw-r--r-- | ghc/includes/Updates.h | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/ghc/includes/Updates.h b/ghc/includes/Updates.h index 419e0f6297..0d0bf2ff6f 100644 --- a/ghc/includes/Updates.h +++ b/ghc/includes/Updates.h @@ -227,7 +227,7 @@ DEBUG_FILL_SLOP(StgClosure *p) switch (inf->type) { case BLACKHOLE: - break; + return; case AP_STACK: sz = ((StgAP_STACK *)p)->size + sizeofW(StgAP_STACK) - sizeofW(StgHeader); break; @@ -235,7 +235,7 @@ DEBUG_FILL_SLOP(StgClosure *p) #ifdef SMP ((StgSelector *)p)->selectee = 0; #endif - break; + return; default: sz = inf->layout.payload.ptrs + inf->layout.payload.nptrs; break; |