X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=rts%2FSchedule.c;h=3f07d3cb11cb2179cf014174deecb740fa1871e3;hb=f4b727487a65e6b611bbaafbd2207bd63a8df706;hp=7b57c0db32c148432bf849e64b39a27c458df75a;hpb=34bb8868a99962ede85ab7fa67c43fb922d78fc6;p=ghc-hetmet.git

diff --git a/rts/Schedule.c b/rts/Schedule.c
index 7b57c0d..3f07d3c 100644
--- a/rts/Schedule.c
+++ b/rts/Schedule.c
@@ -2201,6 +2201,7 @@ threadStackOverflow(Capability *cap, StgTSO *tso)
       //
 
       if (tso->flags & TSO_SQUEEZED) {
+          unlockTSO(tso);
           return tso;
       }
       // #3677: In a stack overflow situation, stack squeezing may