projects
/
ghc-hetmet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Handle deps with numbers in them, like 'wsock32'.
[ghc-hetmet.git]
/
rts
/
Threads.h
diff --git
a/rts/Threads.h
b/rts/Threads.h
index
f6d2dfd
..
8e0ee26
100644
(file)
--- a/
rts/Threads.h
+++ b/
rts/Threads.h
@@
-9,6
+9,8
@@
#ifndef THREADS_H
#define THREADS_H
#ifndef THREADS_H
#define THREADS_H
+BEGIN_RTS_PRIVATE
+
StgTSO * unblockOne (Capability *cap, StgTSO *tso);
StgTSO * unblockOne_ (Capability *cap, StgTSO *tso, rtsBool allow_migrate);
StgTSO * unblockOne (Capability *cap, StgTSO *tso);
StgTSO * unblockOne_ (Capability *cap, StgTSO *tso, rtsBool allow_migrate);
@@
-25,13
+27,8
@@
void printThreadBlockage (StgTSO *tso);
void printThreadStatus (StgTSO *t);
void printAllThreads (void);
void printThreadQueue (StgTSO *t);
void printThreadStatus (StgTSO *t);
void printAllThreads (void);
void printThreadQueue (StgTSO *t);
-# if defined(PARALLEL_HASKELL)
-void print_bq (StgClosure *node);
-void print_bqe (StgBlockingQueueElement *bqe);
-nat run_queue_len (void);
-# elif defined(GRAN)
-void print_bq (StgClosure *node);
-# endif
#endif
#endif
+END_RTS_PRIVATE
+
#endif /* THREADS_H */
#endif /* THREADS_H */