diff options
| -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; +} |