diff options
| author | Ben Gamari <ben@smart-cactus.org> | 2019-06-14 11:15:16 -0400 |
|---|---|---|
| committer | Ben Gamari <ben@smart-cactus.org> | 2019-06-28 15:25:30 -0400 |
| commit | bd660edeb783a74e5ca3f1f82713b2aeedae19dc (patch) | |
| tree | 1767d38e8a87c9a71834a7066c1ad78e069b1bf7 | |
| parent | 11bac11545b19a63f5cec3c5bbd5c3f9a7dae0b2 (diff) | |
| download | haskell-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.
| -rw-r--r-- | rts/sm/Evac.c | 3 |
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 |