From 9fd3a4f8760c7e47eb5d4a098559c980d24a9775 Mon Sep 17 00:00:00 2001 From: Simon Marlow Date: Wed, 7 Jan 2009 12:11:42 +0000 Subject: [PATCH] add comment --- rts/RaiseAsync.c | 3 +++ 1 file changed, 3 insertions(+) diff --git a/rts/RaiseAsync.c b/rts/RaiseAsync.c index 1a57e47..e65cea3 100644 --- a/rts/RaiseAsync.c +++ b/rts/RaiseAsync.c @@ -558,6 +558,9 @@ maybePerformBlockedException (Capability *cap, StgTSO *tso) return 0; } +// awakenBlockedExceptionQueue(): Just wake up the whole queue of +// blocked exceptions and let them try again. + void awakenBlockedExceptionQueue (Capability *cap, StgTSO *tso) { -- 1.7.10.4