From: Simon Marlow <marlowsd@gmail.com>
Date: Wed, 7 Jan 2009 12:11:42 +0000 (+0000)
Subject: add comment
X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=commitdiff_plain;h=9fd3a4f8760c7e47eb5d4a098559c980d24a9775

add comment
---

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)
 {