diff options
| author | Andreas Klebinger <klebinger.andreas@gmx.at> | 2020-04-02 11:34:31 +0200 |
|---|---|---|
| committer | Ben Gamari <ben@smart-cactus.org> | 2020-07-15 16:41:02 -0400 |
| commit | be6af7324bcd918c61172f6814b8a70a6cfdd58e (patch) | |
| tree | e9490d832007d474b7a6ff333bc3741a0b99244f /rts | |
| parent | 99db46e09c50681e35de75d8bfec6cfb9ac3f9fc (diff) | |
| download | haskell-be6af7324bcd918c61172f6814b8a70a6cfdd58e.tar.gz | |
winio: Properly check for the tso of an incall to be zero.
Diffstat (limited to 'rts')
| -rw-r--r-- | rts/Schedule.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/rts/Schedule.c b/rts/Schedule.c index e3f582e967..1d703bdf21 100644 --- a/rts/Schedule.c +++ b/rts/Schedule.c @@ -941,7 +941,7 @@ scheduleDetectDeadlock (Capability **pcap, Task *task) */ if (recent_activity != ACTIVITY_INACTIVE) return; #endif - if (task->incall->tso->why_blocked == BlockedOnIOCompletion) return; + if (task->incall->tso && task->incall->tso->why_blocked == BlockedOnIOCompletion) return; debugTrace(DEBUG_sched, "deadlocked, forcing major GC..."); |