diff options
author | Ben Gamari <bgamari.foss@gmail.com> | 2016-11-29 16:51:30 -0500 |
---|---|---|
committer | Ben Gamari <ben@smart-cactus.org> | 2016-11-29 16:51:30 -0500 |
commit | 428e152be6bb0fd3867e41cee82a6d5968a11a26 (patch) | |
tree | e43d217c10c052704f872cd7e1df4d335c12d376 /rts/Interpreter.c | |
parent | 56d74515396c8b6360ba7898cbc4b68f0f1fb2ea (diff) | |
download | haskell-428e152be6bb0fd3867e41cee82a6d5968a11a26.tar.gz |
Use C99's bool
Test Plan: Validate on lots of platforms
Reviewers: erikd, simonmar, austin
Reviewed By: erikd, simonmar
Subscribers: michalt, thomie
Differential Revision: https://phabricator.haskell.org/D2699
Diffstat (limited to 'rts/Interpreter.c')
-rw-r--r-- | rts/Interpreter.c | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/rts/Interpreter.c b/rts/Interpreter.c index 5e796cd842..7221ff64f9 100644 --- a/rts/Interpreter.c +++ b/rts/Interpreter.c @@ -972,13 +972,13 @@ run_BCO: // "rts_stop_next_breakpoint" flag is true OR if the // breakpoint flag for this particular expression is // true - if (rts_stop_next_breakpoint == rtsTrue || + if (rts_stop_next_breakpoint == true || ((StgWord8*)breakPoints->payload)[arg2_array_index] - == rtsTrue) + == true) { // make sure we don't automatically stop at the // next breakpoint - rts_stop_next_breakpoint = rtsFalse; + rts_stop_next_breakpoint = false; // allocate memory for a new AP_STACK, enough to // store the top stack frame plus an @@ -1617,7 +1617,7 @@ run_BCO: Sp[0] = (W_)&stg_ret_p_info; SAVE_THREAD_STATE(); - tok = suspendThread(&cap->r, interruptible ? rtsTrue : rtsFalse); + tok = suspendThread(&cap->r, interruptible); // We already made a copy of the arguments above. ffi_call(cif, fn, ret, argptrs); |