diff options
Diffstat (limited to 'rts/RaiseAsync.c')
| -rw-r--r-- | rts/RaiseAsync.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/rts/RaiseAsync.c b/rts/RaiseAsync.c index a5440e40ad..8485e4804a 100644 --- a/rts/RaiseAsync.c +++ b/rts/RaiseAsync.c @@ -776,7 +776,7 @@ raiseAsync(Capability *cap, StgTSO *tso, StgClosure *exception, sp++; } else { sp--; - sp[0] = (W_)&stg_dummy_ret_closure; + sp[0] = (W_)stg_dummy_ret_closure; } frame = sp + 1; @@ -957,7 +957,7 @@ raiseAsync(Capability *cap, StgTSO *tso, StgClosure *exception, // ATOMICALLY_FRAME instance for condemned // transactions, but I don't fully understand the // interaction with STM invariants. - stack->sp[1] = (W_)&stg_NO_TREC_closure; + stack->sp[1] = (W_)stg_NO_TREC_closure; stack->sp[0] = (W_)&stg_ret_p_info; tso->what_next = ThreadRunGHC; goto done; |