X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=includes%2FRtsAPI.h;h=1444dbc3c587b16ef4768f7cf09b43a0f78e001d;hp=98bf7305fd41d4158ed9ddb4686d19aa3ed494e3;hb=e5c3b478b3cd1707cf122833822f44b2ac09b8e9;hpb=063b822bb68f84dd9729327bb1765637c25aceb4 diff --git a/includes/RtsAPI.h b/includes/RtsAPI.h index 98bf730..1444dbc 100644 --- a/includes/RtsAPI.h +++ b/includes/RtsAPI.h @@ -169,7 +169,7 @@ rts_getSchedStatus (Capability *cap); // Note that RtsAPI.h is also included by foreign export stubs in // the base package itself. // -#if defined(mingw32_TARGET_OS) && defined(__PIC__) && !defined(COMPILING_BASE_PACKAGE) +#if defined(mingw32_HOST_OS) && defined(__PIC__) && !defined(COMPILING_BASE_PACKAGE) __declspec(dllimport) extern StgWord base_GHCziTopHandler_runIO_closure[]; __declspec(dllimport) extern StgWord base_GHCziTopHandler_runNonIO_closure[]; #else