X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=rts%2FRaiseAsync.h;fp=rts%2FRaiseAsync.h;h=6f7c305d54145da5e54774e1cf6759eedd0b73fd;hb=0fa59deb44b8a1a0b44ee2b4cc4ae0db31dec038;hp=805281443e2e6a9860263b30e55b1720761b6f81;hpb=94bdf8cb5234289267310b1134b5877f31ddada0;p=ghc-hetmet.git

diff --git a/rts/RaiseAsync.h b/rts/RaiseAsync.h
index 8052814..6f7c305 100644
--- a/rts/RaiseAsync.h
+++ b/rts/RaiseAsync.h
@@ -20,12 +20,11 @@ void throwToSingleThreaded (Capability *cap,
 void throwToSingleThreaded_ (Capability *cap, 
 			     StgTSO *tso, 
 			     StgClosure *exception, 
-			     rtsBool stop_at_atomically,
-			     StgPtr stop_here);
+			     rtsBool stop_at_atomically);
 
 void suspendComputation (Capability *cap, 
 			 StgTSO *tso, 
-			 StgPtr stop_here);
+			 StgUpdateFrame *stop_here);
 
 nat throwTo (Capability *cap,	         // the Capability we hold 
 	     StgTSO *source,	         // the TSO sending the exception