From b473ec1c5f526ff9c8e2224fe753d207c901aec2 Mon Sep 17 00:00:00 2001 From: Simon Marlow Date: Wed, 12 Sep 2007 20:00:57 +0000 Subject: [PATCH] export stopTimer(), we need this in the unix package --- includes/RtsExternal.h | 1 + rts/Linker.c | 1 + 2 files changed, 2 insertions(+) diff --git a/includes/RtsExternal.h b/includes/RtsExternal.h index 30a5b56..41c608d 100644 --- a/includes/RtsExternal.h +++ b/includes/RtsExternal.h @@ -43,6 +43,7 @@ extern int forkOS_createThread ( HsStablePtr entry ); extern pid_t forkProcess(HsStablePtr *entry); extern HsBool rtsSupportsBoundThreads(void); extern StgInt newSpark (StgRegTable *reg, StgClosure *p); +extern void stopTimer(void); /* grimy low-level support functions defined in StgPrimFloat.c */ extern StgDouble __encodeDouble (I_ size, StgByteArray arr, I_ e); diff --git a/rts/Linker.c b/rts/Linker.c index 7c6d744..1e007ac 100644 --- a/rts/Linker.c +++ b/rts/Linker.c @@ -730,6 +730,7 @@ typedef struct _RtsSymbolVal { SymX(rts_breakpoint_io_action) \ SymX(rts_stop_next_breakpoint) \ SymX(rts_stop_on_exception) \ + SymX(stopTimer) \ RTS_USER_SIGNALS_SYMBOLS #ifdef SUPPORT_LONG_LONGS -- 1.7.10.4