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:
390708b
)
Fix #3875: Crash in parallel GC, wrong pointer was being tested.
author
Ben.Lippmeier@anu.edu.au
<unknown>
Mon, 22 Feb 2010 03:16:27 +0000
(
03:16
+0000)
committer
Ben.Lippmeier@anu.edu.au
<unknown>
Mon, 22 Feb 2010 03:16:27 +0000
(
03:16
+0000)
rts/sm/Evac.c
patch
|
blob
|
history
diff --git
a/rts/sm/Evac.c
b/rts/sm/Evac.c
index
db24909
..
76026b0
100644
(file)
--- a/
rts/sm/Evac.c
+++ b/
rts/sm/Evac.c
@@
-878,7
+878,7
@@
selector_chain:
} while (info_ptr == (W_)&stg_WHITEHOLE_info);
// make sure someone else didn't get here first...
- if (IS_FORWARDING_PTR(p) ||
+ if (IS_FORWARDING_PTR(info_ptr) ||
INFO_PTR_TO_STRUCT(info_ptr)->type != THUNK_SELECTOR) {
// v. tricky now. The THUNK_SELECTOR has been evacuated
// by another thread, and is now either a forwarding ptr or IND.