Sp(0) = stg_unblockAsyncExceptionszh_ret_info;
}
}
- Sp_adj(-1);
TICK_UNKNOWN_CALL();
TICK_SLOW_CALL_v();
- jump RET_LBL(stg_ap_v);
+ jump stg_ap_v_fast;
}
unblockAsyncExceptionszh_fast
Sp(0) = stg_blockAsyncExceptionszh_ret_info;
}
}
- Sp_adj(-1);
TICK_UNKNOWN_CALL();
TICK_SLOW_CALL_v();
- jump RET_LBL(stg_ap_v);
+ jump stg_ap_v_fast;
}
TICK_CATCHF_PUSHED();
/* Apply R1 to the realworld token */
- Sp_adj(-1);
TICK_UNKNOWN_CALL();
TICK_SLOW_CALL_v();
- jump RET_LBL(stg_ap_v);
+ jump stg_ap_v_fast;
}
/* -----------------------------------------------------------------------------
W_ r;
trec = StgTSO_trec(CurrentTSO);
r = foreign "C" stmValidateNestOfTransactions(trec "ptr");
- foreign "C" stmAbortTransaction(trec "ptr");
+ foreign "C" stmAbortTransaction(MyCapability() "ptr", trec "ptr");
StgTSO_trec(CurrentTSO) = NO_TREC;
if (r) {
// Transaction was valid: continue searching for a catch frame
} else {
// Transaction was not valid: we retry the exception (otherwise continue
// with a further call to raiseExceptionHelper)
- "ptr" trec = foreign "C" stmStartTransaction(BaseReg "ptr", NO_TREC "ptr");
+ "ptr" trec = foreign "C" stmStartTransaction(MyCapability() "ptr", NO_TREC "ptr");
StgTSO_trec(CurrentTSO) = trec;
R1 = StgAtomicallyFrame_code(Sp);
- Sp_adj(-1);
- jump RET_LBL(stg_ap_v);
+ jump stg_ap_v_fast;
}
}
if (frame_type == STOP_FRAME) {
- /* We've stripped the entire stack, the thread is now dead. */
- Sp = CurrentTSO + OFFSET_StgTSO_stack
- + WDS(StgTSO_stack_size(CurrentTSO)) - WDS(1);
- Sp(0) = R1; /* save the exception */
+ /*
+ * We've stripped the entire stack, the thread is now dead.
+ * We will leave the stack in a GC'able state, see the stg_stop_thread
+ * entry code in StgStartup.cmm.
+ */
+ Sp = CurrentTSO + TSO_OFFSET_StgTSO_stack
+ + WDS(StgTSO_stack_size(CurrentTSO)) - WDS(2);
+ Sp(1) = R1; /* save the exception */
+ Sp(0) = stg_enter_info; /* so that GC can traverse this stack */
StgTSO_what_next(CurrentTSO) = ThreadKilled::I16;
SAVE_THREAD_STATE(); /* inline! */
- R1 = ThreadFinished;
+
+ /* The return code goes in BaseReg->rRet, and BaseReg is returned in R1 */
+ StgRegTable_rRet(BaseReg) = ThreadFinished;
+ R1 = BaseReg;
+
jump StgReturn;
}