projects
/
ghc-hetmet.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(from parent 1:
3137344
)
bugfix: check for NULL before testing isPartiallyFull(stp->blocks)
author
simonmar@microsoft.com
<unknown>
Fri, 14 Dec 2007 10:32:23 +0000
(10:32 +0000)
committer
simonmar@microsoft.com
<unknown>
Fri, 14 Dec 2007 10:32:23 +0000
(10:32 +0000)
rts/sm/GC.c
patch
|
blob
|
history
diff --git
a/rts/sm/GC.c
b/rts/sm/GC.c
index
af35150
..
244da13
100644
(file)
--- a/
rts/sm/GC.c
+++ b/
rts/sm/GC.c
@@
-1237,7
+1237,7
@@
init_uncollected_gen (nat g, nat threads)
// If the block at the head of the list in this generation
// is less than 3/4 full, then use it as a todo block.
- if (isPartiallyFull(stp->blocks))
+ if (stp->blocks && isPartiallyFull(stp->blocks))
{
ws->todo_bd = stp->blocks;
ws->todo_free = ws->todo_bd->free;