Commit 579bc757 authored by Ian Lynagh's avatar Ian Lynagh
Browse files

Do some stack fiddling in stg_unblockAsyncExceptionszh_ret

This fixes a segfault in #1657
parent 6bc54d15
...@@ -72,6 +72,14 @@ INFO_TABLE_RET( stg_unblockAsyncExceptionszh_ret, RET_SMALL ) ...@@ -72,6 +72,14 @@ INFO_TABLE_RET( stg_unblockAsyncExceptionszh_ret, RET_SMALL )
* need to make a small adjustment here. * need to make a small adjustment here.
*/ */
Sp_adj(1); Sp_adj(1);
#endif
STK_CHK_GEN( WDS(2), R1_PTR, stg_unblockAsyncExceptionszh_ret_info);
Sp_adj(-2);
Sp(1) = R1;
#ifdef REG_R1
Sp(0) = stg_gc_unpt_r1_info;
#else
Sp(0) = stg_ut_1_0_unreg_info;
#endif #endif
SAVE_THREAD_STATE(); SAVE_THREAD_STATE();
(r) = foreign "C" maybePerformBlockedException (MyCapability() "ptr", (r) = foreign "C" maybePerformBlockedException (MyCapability() "ptr",
......
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