summaryrefslogtreecommitdiff
path: root/rts
diff options
context:
space:
mode:
authorBen Gamari <ben@smart-cactus.org>2019-06-14 11:15:16 -0400
committerBen Gamari <ben@smart-cactus.org>2019-06-28 15:25:30 -0400
commitbd660edeb783a74e5ca3f1f82713b2aeedae19dc (patch)
tree1767d38e8a87c9a71834a7066c1ad78e069b1bf7 /rts
parent11bac11545b19a63f5cec3c5bbd5c3f9a7dae0b2 (diff)
downloadhaskell-bd660edeb783a74e5ca3f1f82713b2aeedae19dc.tar.gz
rts: Assert that LDV profiling isn't used with parallel GCwip/memory-barriers
I'm not entirely sure we are careful about ensuring this; this is a last-ditch check.
Diffstat (limited to 'rts')
-rw-r--r--rts/sm/Evac.c3
1 files changed, 3 insertions, 0 deletions
diff --git a/rts/sm/Evac.c b/rts/sm/Evac.c
index 7c82caa185..53a473d26c 100644
--- a/rts/sm/Evac.c
+++ b/rts/sm/Evac.c
@@ -1167,6 +1167,9 @@ selector_loop:
OVERWRITING_CLOSURE((StgClosure*)p);
SET_INFO((StgClosure*)p, &stg_WHITEHOLE_info);
write_barrier();
+#if defined(PARALLEL_GC)
+ abort(); // LDV is incompatible with parallel GC
+#endif
}
#endif