Commit 38a5902f authored by AndreasVoellmy's avatar AndreasVoellmy Committed by tibbe
Browse files

Added RTS hooks for the timer manager.

parent 7b098b60
...@@ -23,5 +23,7 @@ StgStablePtr getOrSetGHCConcWindowsIOManagerThreadStore(StgStablePtr ptr); ...@@ -23,5 +23,7 @@ StgStablePtr getOrSetGHCConcWindowsIOManagerThreadStore(StgStablePtr ptr);
StgStablePtr getOrSetGHCConcWindowsProddingStore(StgStablePtr ptr); StgStablePtr getOrSetGHCConcWindowsProddingStore(StgStablePtr ptr);
StgStablePtr getOrSetSystemEventThreadEventManagerStore(StgStablePtr ptr); StgStablePtr getOrSetSystemEventThreadEventManagerStore(StgStablePtr ptr);
StgStablePtr getOrSetSystemEventThreadIOManagerThreadStore(StgStablePtr ptr); StgStablePtr getOrSetSystemEventThreadIOManagerThreadStore(StgStablePtr ptr);
StgStablePtr getOrSetSystemTimerThreadEventManagerStore(StgStablePtr ptr);
StgStablePtr getOrSetSystemTimerThreadIOManagerThreadStore(StgStablePtr ptr);
#endif /* RTS_GLOBALS_H */ #endif /* RTS_GLOBALS_H */
...@@ -25,6 +25,8 @@ typedef enum { ...@@ -25,6 +25,8 @@ typedef enum {
GHCConcWindowsProddingStore, GHCConcWindowsProddingStore,
SystemEventThreadEventManagerStore, SystemEventThreadEventManagerStore,
SystemEventThreadIOManagerThreadStore, SystemEventThreadIOManagerThreadStore,
SystemTimerThreadEventManagerStore,
SystemTimerThreadIOManagerThreadStore,
MaxStoreKey MaxStoreKey
} StoreKey; } StoreKey;
...@@ -114,3 +116,15 @@ getOrSetSystemEventThreadIOManagerThreadStore(StgStablePtr ptr) ...@@ -114,3 +116,15 @@ getOrSetSystemEventThreadIOManagerThreadStore(StgStablePtr ptr)
{ {
return getOrSetKey(SystemEventThreadIOManagerThreadStore,ptr); return getOrSetKey(SystemEventThreadIOManagerThreadStore,ptr);
} }
StgStablePtr
getOrSetSystemTimerThreadEventManagerStore(StgStablePtr ptr)
{
return getOrSetKey(SystemTimerThreadEventManagerStore,ptr);
}
StgStablePtr
getOrSetSystemTimerThreadIOManagerThreadStore(StgStablePtr ptr)
{
return getOrSetKey(SystemTimerThreadIOManagerThreadStore,ptr);
}
...@@ -1098,6 +1098,8 @@ typedef struct _RtsSymbolVal { ...@@ -1098,6 +1098,8 @@ typedef struct _RtsSymbolVal {
SymI_HasProto(getOrSetGHCConcWindowsProddingStore) \ SymI_HasProto(getOrSetGHCConcWindowsProddingStore) \
SymI_HasProto(getOrSetSystemEventThreadEventManagerStore) \ SymI_HasProto(getOrSetSystemEventThreadEventManagerStore) \
SymI_HasProto(getOrSetSystemEventThreadIOManagerThreadStore) \ SymI_HasProto(getOrSetSystemEventThreadIOManagerThreadStore) \
SymI_HasProto(getOrSetSystemTimerThreadEventManagerStore) \
SymI_HasProto(getOrSetSystemTimerThreadIOManagerThreadStore) \
SymI_HasProto(getGCStats) \ SymI_HasProto(getGCStats) \
SymI_HasProto(getGCStatsEnabled) \ SymI_HasProto(getGCStatsEnabled) \
SymI_HasProto(genSymZh) \ SymI_HasProto(genSymZh) \
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment