X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Frts%2FRtsStartup.c;h=c5fa744c8332b0dba4a7ac4c289237e341c04832;hb=153b9cb9b11e05c4edb1b6bc0a7b972660e41f70;hp=69ae2272eb6b3695ea8e8204c53d58a462fdab3a;hpb=bfdd44b2bfec3d819fd5ce19279832c25f096bb4;p=ghc-hetmet.git diff --git a/ghc/rts/RtsStartup.c b/ghc/rts/RtsStartup.c index 69ae227..c5fa744 100644 --- a/ghc/rts/RtsStartup.c +++ b/ghc/rts/RtsStartup.c @@ -49,7 +49,7 @@ # include "LLC.h" #endif -#if defined(mingw32_TARGET_OS) +#if defined(mingw32_HOST_OS) #include "win32/AsyncIO.h" #endif @@ -216,7 +216,7 @@ hs_init(int *argc, char **argv[]) initDefaultHandlers(); #endif -#if defined(mingw32_TARGET_OS) +#if defined(mingw32_HOST_OS) startupAsyncIO(); #endif @@ -439,7 +439,7 @@ hs_exit(void) if (RtsFlags.TickyFlags.showTickyStats) PrintTickyInfo(); #endif -#if defined(mingw32_TARGET_OS) +#if defined(mingw32_HOST_OS) shutdownAsyncIO(); #endif }