projects
/
ghc-hetmet.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
1b85a98
)
[project @ 2005-10-10 10:32:09 by simonmar]
author
simonmar
<unknown>
Mon, 10 Oct 2005 10:32:09 +0000
(10:32 +0000)
committer
simonmar
<unknown>
Mon, 10 Oct 2005 10:32:09 +0000
(10:32 +0000)
Fix bug in previous commit (fixes recent seg faults in nightly stage2)
ghc/includes/Updates.h
patch
|
blob
|
history
diff --git
a/ghc/includes/Updates.h
b/ghc/includes/Updates.h
index
419e0f6
..
0d0bf2f
100644
(file)
--- 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;