From: Simon Marlow <simonmar@microsoft.com>
Date: Wed, 12 Sep 2007 20:00:57 +0000 (+0000)
Subject: export stopTimer(), we need this in the unix package
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=b473ec1c5f526ff9c8e2224fe753d207c901aec2;p=ghc-hetmet.git

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

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