projects
/
ghc-hetmet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Refine incomplete-pattern checks (Trac #4905)
[ghc-hetmet.git]
/
rts
/
Threads.h
diff --git
a/rts/Threads.h
b/rts/Threads.h
index
e3680f2
..
857658a
100644
(file)
--- a/
rts/Threads.h
+++ b/
rts/Threads.h
@@
-9,7
+9,7
@@
#ifndef THREADS_H
#define THREADS_H
#ifndef THREADS_H
#define THREADS_H
-BEGIN_RTS_PRIVATE
+#include "BeginPrivate.h"
#define END_BLOCKED_EXCEPTIONS_QUEUE ((MessageThrowTo*)END_TSO_QUEUE)
#define END_BLOCKED_EXCEPTIONS_QUEUE ((MessageThrowTo*)END_TSO_QUEUE)
@@
-38,6
+38,10
@@
rtsBool removeThreadFromDeQueue (Capability *cap, StgTSO **head, StgTSO **tail
StgBool isThreadBound (StgTSO* tso);
StgBool isThreadBound (StgTSO* tso);
+// Overfow/underflow
+void threadStackOverflow (Capability *cap, StgTSO *tso);
+nat threadStackUnderflow (Capability *cap, StgTSO *tso);
+
#ifdef DEBUG
void printThreadBlockage (StgTSO *tso);
void printThreadStatus (StgTSO *t);
#ifdef DEBUG
void printThreadBlockage (StgTSO *tso);
void printThreadStatus (StgTSO *t);
@@
-45,6
+49,6
@@
void printAllThreads (void);
void printThreadQueue (StgTSO *t);
#endif
void printThreadQueue (StgTSO *t);
#endif
-END_RTS_PRIVATE
+#include "EndPrivate.h"
#endif /* THREADS_H */
#endif /* THREADS_H */