Commit 47808bdc authored by adept's avatar adept
Browse files

Export the value of the signal used by scheduler (#4504)

parent 2590ff43
......@@ -16,5 +16,6 @@
void startTimer (void);
void stopTimer (void);
int rtsTimerSignal (void);
#endif /* RTS_TIMER_H */
......@@ -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) \
......
......@@ -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;
}
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