[commit: ghc] master: Added RTS hooks for the timer manager. (38a5902)

Johan Tibell johan.tibell at gmail.com
Tue Feb 12 07:49:16 CET 2013


Repository : ssh://darcs.haskell.org//srv/darcs/ghc

On branch  : master

http://hackage.haskell.org/trac/ghc/changeset/38a5902fec5ca7b078f607cc4e7452f1c62214f7

>---------------------------------------------------------------

commit 38a5902fec5ca7b078f607cc4e7452f1c62214f7
Author: Andreas Voellmy <andreas.voellmy at gmail.com>
Date:   Thu Dec 20 00:43:11 2012 -0500

    Added RTS hooks for the timer manager.

>---------------------------------------------------------------

 includes/rts/Globals.h |    2 ++
 rts/Globals.c          |   14 ++++++++++++++
 rts/Linker.c           |    2 ++
 3 files changed, 18 insertions(+), 0 deletions(-)

diff --git a/includes/rts/Globals.h b/includes/rts/Globals.h
index 9a2fbd0..720d967 100644
--- a/includes/rts/Globals.h
+++ b/includes/rts/Globals.h
@@ -23,5 +23,7 @@ StgStablePtr getOrSetGHCConcWindowsIOManagerThreadStore(StgStablePtr ptr);
 StgStablePtr getOrSetGHCConcWindowsProddingStore(StgStablePtr ptr);
 StgStablePtr getOrSetSystemEventThreadEventManagerStore(StgStablePtr ptr);
 StgStablePtr getOrSetSystemEventThreadIOManagerThreadStore(StgStablePtr ptr);
+StgStablePtr getOrSetSystemTimerThreadEventManagerStore(StgStablePtr ptr);
+StgStablePtr getOrSetSystemTimerThreadIOManagerThreadStore(StgStablePtr ptr);
 
 #endif /* RTS_GLOBALS_H */
diff --git a/rts/Globals.c b/rts/Globals.c
index 06b2f97..1aafe21 100644
--- a/rts/Globals.c
+++ b/rts/Globals.c
@@ -25,6 +25,8 @@ typedef enum {
     GHCConcWindowsProddingStore,
     SystemEventThreadEventManagerStore,
     SystemEventThreadIOManagerThreadStore,
+    SystemTimerThreadEventManagerStore,
+    SystemTimerThreadIOManagerThreadStore,
     MaxStoreKey
 } StoreKey;
 
@@ -114,3 +116,15 @@ getOrSetSystemEventThreadIOManagerThreadStore(StgStablePtr ptr)
 {
     return getOrSetKey(SystemEventThreadIOManagerThreadStore,ptr);
 }
+
+StgStablePtr
+getOrSetSystemTimerThreadEventManagerStore(StgStablePtr ptr)
+{
+    return getOrSetKey(SystemTimerThreadEventManagerStore,ptr);
+}
+
+StgStablePtr
+getOrSetSystemTimerThreadIOManagerThreadStore(StgStablePtr ptr)
+{
+    return getOrSetKey(SystemTimerThreadIOManagerThreadStore,ptr);
+}
diff --git a/rts/Linker.c b/rts/Linker.c
index 4a539f5..ef4f924 100644
--- a/rts/Linker.c
+++ b/rts/Linker.c
@@ -1098,6 +1098,8 @@ typedef struct _RtsSymbolVal {
       SymI_HasProto(getOrSetGHCConcWindowsProddingStore)                \
       SymI_HasProto(getOrSetSystemEventThreadEventManagerStore)         \
       SymI_HasProto(getOrSetSystemEventThreadIOManagerThreadStore)      \
+      SymI_HasProto(getOrSetSystemTimerThreadEventManagerStore)         \
+      SymI_HasProto(getOrSetSystemTimerThreadIOManagerThreadStore)      \
       SymI_HasProto(getGCStats)                                         \
       SymI_HasProto(getGCStatsEnabled)                                  \
       SymI_HasProto(genSymZh)                                           \





More information about the ghc-commits mailing list