diff options
| author | Simon Marlow <marlowsd@gmail.com> | 2008-08-20 12:54:46 +0000 |
|---|---|---|
| committer | Simon Marlow <marlowsd@gmail.com> | 2008-08-20 12:54:46 +0000 |
| commit | aceacfc45ac040b450e36626723d63cd1977ecee (patch) | |
| tree | 782f0810b45204967fbd3cbb284e58fd31c88d49 /rts | |
| parent | ec29e12f0df59d01a7f82adee9f8cd2ab8c37b00 (diff) | |
| download | haskell-aceacfc45ac040b450e36626723d63cd1977ecee.tar.gz | |
Fix compacting GC on 64-bit machines
Some old experimental change leaked in with the parallel GC patches,
it seems
Diffstat (limited to 'rts')
| -rw-r--r-- | rts/sm/Scav.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/rts/sm/Scav.c b/rts/sm/Scav.c index ab55e8a166..b8fb54bfcd 100644 --- a/rts/sm/Scav.c +++ b/rts/sm/Scav.c @@ -745,7 +745,7 @@ linear_scan: info = get_itbl((StgClosure *)p); q = p; - switch (((volatile StgWord *)info)[1] & 0xffff) { + switch (info->type) { case MVAR_CLEAN: case MVAR_DIRTY: |