diff options
| author | Simon Marlow <marlowsd@gmail.com> | 2009-01-06 15:44:08 +0000 |
|---|---|---|
| committer | Simon Marlow <marlowsd@gmail.com> | 2009-01-06 15:44:08 +0000 |
| commit | b55e7b53eb4af373764969ab9cfd5a4ef4bc9b8d (patch) | |
| tree | ab592325fcf5b88664152100c7582b788bbc7267 /rts/RaiseAsync.c | |
| parent | f31b2a4a57473ca78fe1b9a1b7cd11f22aeff87d (diff) | |
| download | haskell-b55e7b53eb4af373764969ab9cfd5a4ef4bc9b8d.tar.gz | |
cruft removal
Diffstat (limited to 'rts/RaiseAsync.c')
| -rw-r--r-- | rts/RaiseAsync.c | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/rts/RaiseAsync.c b/rts/RaiseAsync.c index ce0e555e5f..501da2f55f 100644 --- a/rts/RaiseAsync.c +++ b/rts/RaiseAsync.c @@ -811,8 +811,7 @@ raiseAsync(Capability *cap, StgTSO *tso, StgClosure *exception, // Perform the update // TODO: this may waste some work, if the thunk has // already been updated by another thread. - UPD_IND_NOLOCK(((StgUpdateFrame *)frame)->updatee, - (StgClosure *)ap); + UPD_IND(((StgUpdateFrame *)frame)->updatee, (StgClosure *)ap); } sp += sizeofW(StgUpdateFrame) - 1; |