X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=rts%2FRaiseAsync.c;h=ca5e5ea4c1481ef418bfaaa6c36349b3b90e34ba;hb=8ae8c865716e0ee03383ddfae58ab778ce527412;hp=15e6f8f3149661de8c456d24d3d3968308e80ea4;hpb=53bf23e5b0ad68264604c9c9da63d15de16da223;p=ghc-hetmet.git

diff --git a/rts/RaiseAsync.c b/rts/RaiseAsync.c
index 15e6f8f..ca5e5ea 100644
--- a/rts/RaiseAsync.c
+++ b/rts/RaiseAsync.c
@@ -834,7 +834,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(((StgUpdateFrame *)frame)->updatee, (StgClosure *)ap);
+                UPD_IND(cap, ((StgUpdateFrame *)frame)->updatee, (StgClosure *)ap);
             }
 
 	    sp += sizeofW(StgUpdateFrame) - 1;