diff options
| author | Simon Marlow <marlowsd@gmail.com> | 2008-06-09 17:49:43 +0000 |
|---|---|---|
| committer | Simon Marlow <marlowsd@gmail.com> | 2008-06-09 17:49:43 +0000 |
| commit | 74ee9df9f9e79e7110e9d8541b84010f35c464c5 (patch) | |
| tree | a7a10946773a1f12d367c063e4ac343e6580d9ad /rts/sm/Compact.c | |
| parent | 54fe7a440247fbd0f853d07da23d48b50a229a00 (diff) | |
| download | haskell-74ee9df9f9e79e7110e9d8541b84010f35c464c5.tar.gz | |
Experimental "mark-region" strategy for the old generation
Sometimes better than the default copying, enabled by +RTS -w
Diffstat (limited to 'rts/sm/Compact.c')
| -rw-r--r-- | rts/sm/Compact.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/rts/sm/Compact.c b/rts/sm/Compact.c index bb4d8388c2..9f0a69d1d1 100644 --- a/rts/sm/Compact.c +++ b/rts/sm/Compact.c @@ -84,7 +84,7 @@ thread (StgClosure **p) if (HEAP_ALLOCED(q)) { bd = Bdescr(q); - if (bd->flags & BF_COMPACTED) + if (bd->flags & BF_MARKED) { iptr = *q; switch (GET_CLOSURE_TAG((StgClosure *)iptr)) |