[commit: ghc] master: Fix build on Win64 (59e1f06)

Ian Lynagh igloo at earth.li
Thu May 17 04:39:10 CEST 2012


Repository : ssh://darcs.haskell.org//srv/darcs/ghc

On branch  : master

http://hackage.haskell.org/trac/ghc/changeset/59e1f0687aa6e2d65c4de314f80b13e4aedad8bc

>---------------------------------------------------------------

commit 59e1f0687aa6e2d65c4de314f80b13e4aedad8bc
Author: Ian Lynagh <igloo at earth.li>
Date:   Thu May 10 00:53:28 2012 +0100

    Fix build on Win64

>---------------------------------------------------------------

 rts/Linker.c |    1 +
 1 files changed, 1 insertions(+), 0 deletions(-)

diff --git a/rts/Linker.c b/rts/Linker.c
index b23ff93..d7ab54e 100644
--- a/rts/Linker.c
+++ b/rts/Linker.c
@@ -540,6 +540,7 @@ typedef struct _RtsSymbolVal {
       RTS_WIN64_ONLY(SymI_NeedsProto(__imp__fstat64))    \
       RTS_WIN64_ONLY(SymI_NeedsProto(__imp__wsopen))     \
       RTS_WIN64_ONLY(SymI_HasProto(__imp__environ))      \
+      RTS_WIN64_ONLY(SymI_NeedsProto(__imp_GetFileInformationByHandle))  \
       RTS_WIN64_ONLY(SymI_NeedsProto(__imp_GetFileType))                 \
       RTS_WIN64_ONLY(SymI_NeedsProto(__imp_GetLastError))                \
       RTS_WIN64_ONLY(SymI_NeedsProto(__imp_QueryPerformanceFrequency))   \





More information about the Cvs-ghc mailing list