[commit: ghc] wip/erikd/rts: wip (51308bc)

[git at git.haskell.org]

Repository : ssh://git@git.haskell.org/ghc

On branch  : wip/erikd/rts
Link       : http://ghc.haskell.org/trac/ghc/changeset/51308bc6c5248dc40c15dfe9d04b839001caa801/ghc

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

commit 51308bc6c5248dc40c15dfe9d04b839001caa801
Author: Erik de Castro Lopo <erikd at mega-nerd.com>
Date:   Fri Jul 1 19:36:06 2016 +1000

    wip


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

51308bc6c5248dc40c15dfe9d04b839001caa801
 iserv/cbits/iservmain.c | 1 -
 rts/Linker.c            | 2 +-
 2 files changed, 1 insertion(+), 2 deletions(-)

diff --git a/iserv/cbits/iservmain.c b/iserv/cbits/iservmain.c
index eeee2db..b76b021 100644
--- a/iserv/cbits/iservmain.c
+++ b/iserv/cbits/iservmain.c
@@ -1,4 +1,3 @@
-#include "PosixSource.h"
 #include "Rts.h"
 
 #include "HsFFI.h"
diff --git a/rts/Linker.c b/rts/Linker.c
index 95bcbc6..12ca4b6 100644
--- a/rts/Linker.c
+++ b/rts/Linker.c
@@ -269,7 +269,7 @@ static pathchar* pathdup(pathchar *path)
 static pathchar* pathdir(pathchar *path)
 {
     pathchar *ret;
-#if defined(mingw32_HOST_OS)
+#if mingw32_HOST_OS
     pathchar *drive, *dirName;
     size_t memberLen = pathlen(path) + 1;
     dirName = stgMallocBytes(pathsize * memberLen, "pathdir(path)");