diff options
| author | Ömer Sinan Ağacan <omeragacan@gmail.com> | 2018-09-21 10:08:18 +0300 |
|---|---|---|
| committer | Ömer Sinan Ağacan <omeragacan@gmail.com> | 2018-09-21 10:08:18 +0300 |
| commit | 29f1c556dd563f563c3c0522823fa66f171ff023 (patch) | |
| tree | f305f4f0b398bd8b48e544566299f77bbdcb3233 /rts/Threads.c | |
| parent | 66c17293648fd03a04aabfd807b3c8336e8f843a (diff) | |
| download | haskell-29f1c556dd563f563c3c0522823fa66f171ff023.tar.gz | |
Remove redundant slop zeroing
OVERWRITE_INFO already does zero slopping by calling OVERWRITING_CLOSURE
Diffstat (limited to 'rts/Threads.c')
| -rw-r--r-- | rts/Threads.c | 6 |
1 files changed, 0 insertions, 6 deletions
diff --git a/rts/Threads.c b/rts/Threads.c index 78c5b6cc84..977635322d 100644 --- a/rts/Threads.c +++ b/rts/Threads.c @@ -371,12 +371,6 @@ wakeBlockingQueue(Capability *cap, StgBlockingQueue *bq) // overwrite the BQ with an indirection so it will be // collected at the next GC. -#if defined(DEBUG) && !defined(THREADED_RTS) - // XXX FILL_SLOP, but not if THREADED_RTS because in that case - // another thread might be looking at this BLOCKING_QUEUE and - // checking the owner field at the same time. - bq->bh = 0; bq->queue = 0; bq->owner = 0; -#endif OVERWRITE_INFO(bq, &stg_IND_info); } |