diff options
| author | Erik de Castro Lopo <erikd@mega-nerd.com> | 2015-10-25 11:43:17 +1100 |
|---|---|---|
| committer | Erik de Castro Lopo <erikd@mega-nerd.com> | 2015-10-25 21:27:11 +1100 |
| commit | 898f34cdd0121d6bc145f75af2cf99f58542b558 (patch) | |
| tree | b3b2e1fb3e525747e4c85151a75a0e7b628762b7 | |
| parent | 3ed4b804bebcb5b1b5420679b5371363bafdfc9f (diff) | |
| download | haskell-898f34cdd0121d6bc145f75af2cf99f58542b558.tar.gz | |
rts/RtsSymbols.c: Fix Windows build
Test Plan:
- Build whole of GHC on Linux.
- Cross-compile rts/RtsSymbols.c and rts/Linker.c to Windows using the
i686-w64-mingw32-gcc and x86_64-w64-mingw32-gcc cross compilers.
Reviewers: bgamari, awson, austin
Subscribers: thomie
Differential Revision: https://phabricator.haskell.org/D1365
| -rw-r--r-- | rts/RtsSymbols.c | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/rts/RtsSymbols.c b/rts/RtsSymbols.c index 8c062bbd8d..b9b0d2c204 100644 --- a/rts/RtsSymbols.c +++ b/rts/RtsSymbols.c @@ -6,6 +6,7 @@ * * ---------------------------------------------------------------------------*/ +#include "ghcplatform.h" #include "RtsSymbols.h" #include "Rts.h" @@ -17,6 +18,13 @@ #include "posix/Signals.h" #endif +#if defined(mingw32_HOST_OS) +#include <sys/stat.h> +#include <io.h> +#include <windows.h> +#include <shfolder.h> /* SHGetFolderPathW */ +#endif + /* ----------------------------------------------------------------------------- * Symbols to be inserted into the RTS symbol table. */ |