diff options
| author | Simon Marlow <marlowsd@gmail.com> | 2008-07-30 13:59:18 +0000 |
|---|---|---|
| committer | Simon Marlow <marlowsd@gmail.com> | 2008-07-30 13:59:18 +0000 |
| commit | dc25c00f7cbfc014483bb26f5869825b373bd68a (patch) | |
| tree | deb5b1a824cd31684ff77dbb0ca555817f2247a9 /rts/Linker.c | |
| parent | 5ef63d1912a0363de083beff248574c026998ae7 (diff) | |
| download | haskell-dc25c00f7cbfc014483bb26f5869825b373bd68a.tar.gz | |
workaround #2277: turn off the RTS timer when calling into editline
Diffstat (limited to 'rts/Linker.c')
| -rw-r--r-- | rts/Linker.c | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/rts/Linker.c b/rts/Linker.c index 1a99f12d00..6c1446ad4d 100644 --- a/rts/Linker.c +++ b/rts/Linker.c @@ -27,6 +27,7 @@ #include "Schedule.h" #include "Sparks.h" #include "RtsTypeable.h" +#include "Timer.h" #ifdef HAVE_SYS_TYPES_H #include <sys/types.h> @@ -703,6 +704,7 @@ typedef struct _RtsSymbolVal { SymX(stackOverflow) \ SymX(stg_CAF_BLACKHOLE_info) \ SymX(awakenBlockedQueue) \ + SymX(startTimer) \ SymX(stg_CHARLIKE_closure) \ SymX(stg_MVAR_CLEAN_info) \ SymX(stg_MVAR_DIRTY_info) \ |