From: Simon Marlow <marlowsd@gmail.com>
Date: Mon, 3 Aug 2009 15:05:33 +0000 (+0000)
Subject: Windows build fix
X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=commitdiff_plain;h=086827c0811f1327c86b540111dfb62f378c96e9

Windows build fix
---

diff --git a/rts/Linker.c b/rts/Linker.c
index c3944fe..0e5630d 100644
--- a/rts/Linker.c
+++ b/rts/Linker.c
@@ -231,6 +231,8 @@ typedef struct _RtsSymbolVal {
 
 #if !defined (mingw32_HOST_OS)
 #define RTS_POSIX_ONLY_SYMBOLS                  \
+      SymI_HasProto(__hscore_get_saved_termios)	\
+      SymI_HasProto(__hscore_set_saved_termios)	\
       SymI_HasProto(shutdownHaskellAndSignal)	\
       SymI_HasProto(lockFile)                   \
       SymI_HasProto(unlockFile)                 \
@@ -717,8 +719,6 @@ typedef struct _RtsSymbolVal {
       SymI_HasProto(rts_unlock)				\
       SymI_HasProto(rts_unsafeGetMyCapability)          \
       SymI_HasProto(rtsSupportsBoundThreads)		\
-      SymI_HasProto(__hscore_get_saved_termios)		\
-      SymI_HasProto(__hscore_set_saved_termios)		\
       SymI_HasProto(setProgArgv)			\
       SymI_HasProto(startupHaskell)			\
       SymI_HasProto(shutdownHaskell)			\