From 47808bdc0bae8e5ba2910c85ea6c0699af01e97c Mon Sep 17 00:00:00 2001 From: Dmitry Astapov Date: Wed, 8 Dec 2010 18:37:55 +0000 Subject: [PATCH] Export the value of the signal used by scheduler (#4504) --- includes/rts/Timer.h | 1 + rts/Linker.c | 1 + rts/posix/Itimer.c | 6 ++++++ 3 files changed, 8 insertions(+) diff --git a/includes/rts/Timer.h b/includes/rts/Timer.h index 39edeb2..9563f6a 100644 --- a/includes/rts/Timer.h +++ b/includes/rts/Timer.h @@ -16,5 +16,6 @@ void startTimer (void); void stopTimer (void); +int rtsTimerSignal (void); #endif /* RTS_TIMER_H */ diff --git a/rts/Linker.c b/rts/Linker.c index 2894b1e..141d20b 100644 --- a/rts/Linker.c +++ b/rts/Linker.c @@ -888,6 +888,7 @@ typedef struct _RtsSymbolVal { SymI_HasProto(rts_unlock) \ SymI_HasProto(rts_unsafeGetMyCapability) \ SymI_HasProto(rtsSupportsBoundThreads) \ + SymI_HasProto(rtsTimerSignal) \ SymI_HasProto(rts_isProfiled) \ SymI_HasProto(setProgArgv) \ SymI_HasProto(startupHaskell) \ diff --git a/rts/posix/Itimer.c b/rts/posix/Itimer.c index 2dbf32d..e46bb12 100644 --- a/rts/posix/Itimer.c +++ b/rts/posix/Itimer.c @@ -245,3 +245,9 @@ getourtimeofday(void) return (lnat)((StgWord64)tv.tv_sec * 1000 / interval + (StgWord64)tv.tv_usec / (interval * 1000)); } + +int +rtsTimerSignal(void) +{ + return ITIMER_SIGNAL; +} -- 1.7.10.4