summaryrefslogtreecommitdiff
path: root/rts/Interpreter.c
diff options
context:
space:
mode:
authorBen Gamari <bgamari.foss@gmail.com>2016-11-29 16:51:30 -0500
committerBen Gamari <ben@smart-cactus.org>2016-11-29 16:51:30 -0500
commit428e152be6bb0fd3867e41cee82a6d5968a11a26 (patch)
treee43d217c10c052704f872cd7e1df4d335c12d376 /rts/Interpreter.c
parent56d74515396c8b6360ba7898cbc4b68f0f1fb2ea (diff)
downloadhaskell-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.c8
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);