Commit 6ea3a1ac authored by Simon Marlow's avatar Simon Marlow
Browse files

fix -fbreak-on-exception for unregsterised

parent 30ad291a
...@@ -430,14 +430,15 @@ retry_pop_stack: ...@@ -430,14 +430,15 @@ retry_pop_stack:
// be per-thread. // be per-thread.
W_[rts_stop_on_exception] = 0; W_[rts_stop_on_exception] = 0;
("ptr" ioAction) = foreign "C" deRefStablePtr (W_[rts_breakpoint_io_action] "ptr") []; ("ptr" ioAction) = foreign "C" deRefStablePtr (W_[rts_breakpoint_io_action] "ptr") [];
Sp = Sp - WDS(6); Sp = Sp - WDS(7);
Sp(5) = exception; Sp(6) = exception;
Sp(4) = stg_raise_ret_info; Sp(5) = stg_raise_ret_info;
Sp(4) = stg_noforceIO_info; // required for unregisterised
Sp(3) = exception; // the AP_STACK Sp(3) = exception; // the AP_STACK
Sp(2) = base_GHCziBase_True_closure; // dummy breakpoint info Sp(2) = base_GHCziBase_True_closure; // dummy breakpoint info
Sp(1) = base_GHCziBase_True_closure; // True <=> a breakpoint Sp(1) = base_GHCziBase_True_closure; // True <=> a breakpoint
R1 = ioAction; R1 = ioAction;
jump stg_ap_pppv_info; jump RET_LBL(stg_ap_pppv);
} }
} }
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment