X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=rts%2FException.cmm;h=5c2ee95846de1d781273e8ac438d0ce59463995e;hp=a897990b878aefa8a1e5af83294010a5325b9320;hb=71899d3e335e763e61f1308bd38b10a18b110791;hpb=b40d1afb89240310b743f1041b9004908f5b24ff

diff --git a/rts/Exception.cmm b/rts/Exception.cmm
index a897990..5c2ee95 100644
--- a/rts/Exception.cmm
+++ b/rts/Exception.cmm
@@ -119,7 +119,7 @@ unblockAsyncExceptionszh_fast
     /* Args: R1 :: IO a */
     STK_CHK_GEN( WDS(2), R1_PTR, unblockAsyncExceptionszh_fast);
 
-    if (TO_W_(StgTSO_flags(CurrentTSO)) & TSO_BLOCKEX) {
+    if ((TO_W_(StgTSO_flags(CurrentTSO)) & TSO_BLOCKEX) != 0) {
 	foreign "C" awakenBlockedExceptionQueue(MyCapability() "ptr", 
 						CurrentTSO "ptr") [R1];