projects
/
ghc-hetmet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Add event block markers
[ghc-hetmet.git]
/
rts
/
RaiseAsync.h
diff --git
a/rts/RaiseAsync.h
b/rts/RaiseAsync.h
index
8052814
..
96eb96e
100644
(file)
--- a/
rts/RaiseAsync.h
+++ b/
rts/RaiseAsync.h
@@
-13,6
+13,9
@@
#define THROWTO_BLOCKED 1
#ifndef CMINUSMINUS
#define THROWTO_BLOCKED 1
#ifndef CMINUSMINUS
+
+BEGIN_RTS_PRIVATE
+
void throwToSingleThreaded (Capability *cap,
StgTSO *tso,
StgClosure *exception);
void throwToSingleThreaded (Capability *cap,
StgTSO *tso,
StgClosure *exception);
@@
-20,12
+23,11
@@
void throwToSingleThreaded (Capability *cap,
void throwToSingleThreaded_ (Capability *cap,
StgTSO *tso,
StgClosure *exception,
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,
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
nat throwTo (Capability *cap, // the Capability we hold
StgTSO *source, // the TSO sending the exception
@@
-65,6
+67,8
@@
interruptible(StgTSO *t)
}
}
}
}
+END_RTS_PRIVATE
+
#endif /* CMINUSMINUS */
#endif /* RAISEASYNC_H */
#endif /* CMINUSMINUS */
#endif /* RAISEASYNC_H */