rts: Fix type of bool literal
authorBen Gamari <bgamari.foss@gmail.com>
Thu, 1 Dec 2016 17:25:00 +0000 (12:25 -0500)
committerBen Gamari <ben@smart-cactus.org>
Thu, 1 Dec 2016 17:25:00 +0000 (12:25 -0500)
Test Plan: Build `p` way

Reviewers: austin, erikd, simonmar

Reviewed By: simonmar

Subscribers: thomie

Differential Revision: https://phabricator.haskell.org/D2779

rts/Exception.cmm

index 2a07eaa..a27227d 100644 (file)
@@ -456,7 +456,7 @@ stg_raisezh /* explicit stack */
     /* 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::I32) {
+    if (RtsFlags_ProfFlags_showCCSOnException(RtsFlags) != 0::CBool) {
         SAVE_THREAD_STATE();
         ccall fprintCCS_stderr(CCCS "ptr",
                                      exception "ptr",