Commit b473ec1c authored by Simon Marlow's avatar Simon Marlow

export stopTimer(), we need this in the unix package

parent b01110d1
...@@ -43,6 +43,7 @@ extern int forkOS_createThread ( HsStablePtr entry ); ...@@ -43,6 +43,7 @@ extern int forkOS_createThread ( HsStablePtr entry );
extern pid_t forkProcess(HsStablePtr *entry); extern pid_t forkProcess(HsStablePtr *entry);
extern HsBool rtsSupportsBoundThreads(void); extern HsBool rtsSupportsBoundThreads(void);
extern StgInt newSpark (StgRegTable *reg, StgClosure *p); extern StgInt newSpark (StgRegTable *reg, StgClosure *p);
extern void stopTimer(void);
/* grimy low-level support functions defined in StgPrimFloat.c */ /* grimy low-level support functions defined in StgPrimFloat.c */
extern StgDouble __encodeDouble (I_ size, StgByteArray arr, I_ e); extern StgDouble __encodeDouble (I_ size, StgByteArray arr, I_ e);
......
...@@ -730,6 +730,7 @@ typedef struct _RtsSymbolVal { ...@@ -730,6 +730,7 @@ typedef struct _RtsSymbolVal {
SymX(rts_breakpoint_io_action) \ SymX(rts_breakpoint_io_action) \
SymX(rts_stop_next_breakpoint) \ SymX(rts_stop_next_breakpoint) \
SymX(rts_stop_on_exception) \ SymX(rts_stop_on_exception) \
SymX(stopTimer) \
RTS_USER_SIGNALS_SYMBOLS RTS_USER_SIGNALS_SYMBOLS
#ifdef SUPPORT_LONG_LONGS #ifdef SUPPORT_LONG_LONGS
......
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