diff options
author | Simon Marlow <marlowsd@gmail.com> | 2010-09-24 15:02:02 +0000 |
---|---|---|
committer | Simon Marlow <marlowsd@gmail.com> | 2010-09-24 15:02:02 +0000 |
commit | 41bfdf710742595e6043d9b851e8dab30ffe6d2f (patch) | |
tree | 75099938ff137a58625874981f446ea3e8078e60 /rts/Exception.cmm | |
parent | 92a5f4abbd32c0a28b75207b368d86e59515683d (diff) | |
download | haskell-41bfdf710742595e6043d9b851e8dab30ffe6d2f.tar.gz |
remove unnecessary stg_noForceIO (#3508)
Diffstat (limited to 'rts/Exception.cmm')
-rw-r--r-- | rts/Exception.cmm | 7 |
1 files changed, 3 insertions, 4 deletions
diff --git a/rts/Exception.cmm b/rts/Exception.cmm index 7d1bf3979a..f85e2e97e5 100644 --- a/rts/Exception.cmm +++ b/rts/Exception.cmm @@ -494,10 +494,9 @@ retry_pop_stack: // be per-thread. CInt[rts_stop_on_exception] = 0; ("ptr" ioAction) = foreign "C" deRefStablePtr (W_[rts_breakpoint_io_action] "ptr") []; - Sp = Sp - WDS(7); - Sp(6) = exception; - Sp(5) = stg_raise_ret_info; - Sp(4) = stg_noforceIO_info; // required for unregisterised + Sp = Sp - WDS(6); + Sp(5) = exception; + Sp(4) = stg_raise_ret_info; Sp(3) = exception; // the AP_STACK Sp(2) = ghczmprim_GHCziBool_True_closure; // dummy breakpoint info Sp(1) = ghczmprim_GHCziBool_True_closure; // True <=> a breakpoint |