From: Simon Marlow <simonmar@microsoft.com>
Date: Tue, 20 Jun 2006 15:06:18 +0000 (+0000)
Subject: fix a few sloppy conditionals caught by new test in CmmLint
X-Git-Tag: Before_FC_branch_merge~356
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=71899d3e335e763e61f1308bd38b10a18b110791;p=ghc-hetmet.git

fix a few sloppy conditionals caught by new test in CmmLint
---

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];