X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Frts%2FRtsFlags.c;h=85c31db112fb663b15d11f1eb8b3c3f4b8aca9e4;hb=153b9cb9b11e05c4edb1b6bc0a7b972660e41f70;hp=2f01d5e219ba55559258ce979221a44d1aa54123;hpb=bfdd44b2bfec3d819fd5ce19279832c25f096bb4;p=ghc-hetmet.git diff --git a/ghc/rts/RtsFlags.c b/ghc/rts/RtsFlags.c index 2f01d5e..85c31db 100644 --- a/ghc/rts/RtsFlags.c +++ b/ghc/rts/RtsFlags.c @@ -503,7 +503,7 @@ setupRtsFlags(int *argc, char *argv[], int *rts_argc, char *rts_argv[]) /* Remove directory from argv[0] -- default files in current directory */ if ((last_slash = (char *) strrchr(argv[0], -#if !defined(mingw32_TARGET_OS) +#if !defined(mingw32_HOST_OS) '/') #else '\\')