diff options
| author | Dmitry Astapov <dastapov@gmail.com> | 2010-12-08 18:37:55 +0000 |
|---|---|---|
| committer | Dmitry Astapov <dastapov@gmail.com> | 2010-12-08 18:37:55 +0000 |
| commit | 47808bdc0bae8e5ba2910c85ea6c0699af01e97c (patch) | |
| tree | e7363676d679cdad80a819c42a15864c69541da6 | |
| parent | 2590ff4374466b196da479c2776c35336b9f0495 (diff) | |
| download | haskell-47808bdc0bae8e5ba2910c85ea6c0699af01e97c.tar.gz | |
Export the value of the signal used by scheduler (#4504)
| -rw-r--r-- | includes/rts/Timer.h | 1 | ||||
| -rw-r--r-- | rts/Linker.c | 1 | ||||
| -rw-r--r-- | rts/posix/Itimer.c | 6 |
3 files changed, 8 insertions, 0 deletions
diff --git a/includes/rts/Timer.h b/includes/rts/Timer.h index 39edeb2937..9563f6a449 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 2894b1e2dd..141d20b56e 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 2dbf32d2f4..e46bb12546 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; +} |