diff options
| author | Simon Marlow <simonmar@microsoft.com> | 2006-06-20 15:17:58 +0000 |
|---|---|---|
| committer | Simon Marlow <simonmar@microsoft.com> | 2006-06-20 15:17:58 +0000 |
| commit | 33db60082554c323f66369e02808d3df5970a36d (patch) | |
| tree | 9cc9456063b1992cf9456095bf19cea4d228fd3c /rts/Exception.cmm | |
| parent | fb684b4309f0d9b3eb823961c93271a406cd1bf6 (diff) | |
| download | haskell-33db60082554c323f66369e02808d3df5970a36d.tar.gz | |
fix sloppy conditionals
Diffstat (limited to 'rts/Exception.cmm')
| -rw-r--r-- | rts/Exception.cmm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/rts/Exception.cmm b/rts/Exception.cmm index 5c2ee95846..6e656e07a0 100644 --- a/rts/Exception.cmm +++ b/rts/Exception.cmm @@ -329,7 +329,7 @@ raisezh_fast /* ToDo: currently this is a hack. Would be much better if * the info was only displayed for an *uncaught* exception. */ - if (RtsFlags_ProfFlags_showCCSOnException(RtsFlags)) { + if (RtsFlags_ProfFlags_showCCSOnException(RtsFlags) != 0) { foreign "C" fprintCCS_stderr(W_[CCCS] "ptr"); } #endif @@ -348,7 +348,7 @@ retry_pop_stack: r = foreign "C" stmValidateNestOfTransactions(trec "ptr"); foreign "C" stmAbortTransaction(MyCapability() "ptr", trec "ptr"); StgTSO_trec(CurrentTSO) = NO_TREC; - if (r) { + if (r != 0) { // Transaction was valid: continue searching for a catch frame Sp = Sp + SIZEOF_StgAtomicallyFrame; goto retry_pop_stack; |