fix a lint-o
authorSimon Marlow <simonmar@microsoft.com>
Tue, 20 Jun 2006 15:19:01 +0000 (15:19 +0000)
committerSimon Marlow <simonmar@microsoft.com>
Tue, 20 Jun 2006 15:19:01 +0000 (15:19 +0000)
rts/Exception.cmm

index 6e656e0..8ca397b 100644 (file)
@@ -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.
      */
     /* 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) != 0) {
+    if (RtsFlags_ProfFlags_showCCSOnException(RtsFlags) != 0::I32) {
       foreign "C" fprintCCS_stderr(W_[CCCS] "ptr");
     }
 #endif
       foreign "C" fprintCCS_stderr(W_[CCCS] "ptr");
     }
 #endif