X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Frts%2FStats.c;h=7c1dbaf946b199d98a5b3d4f01c2d75d24769c73;hb=153b9cb9b11e05c4edb1b6bc0a7b972660e41f70;hp=35d1c9f24554d1ac1ca73c550ee14c72438e690a;hpb=bfdd44b2bfec3d819fd5ce19279832c25f096bb4;p=ghc-hetmet.git diff --git a/ghc/rts/Stats.c b/ghc/rts/Stats.c index 35d1c9f..7c1dbaf 100644 --- a/ghc/rts/Stats.c +++ b/ghc/rts/Stats.c @@ -24,7 +24,7 @@ #include #endif -#ifndef mingw32_TARGET_OS +#ifndef mingw32_HOST_OS # ifdef HAVE_SYS_TIMES_H # include # endif @@ -40,7 +40,7 @@ # endif #endif -#if ! irix_TARGET_OS && ! defined(mingw32_TARGET_OS) +#if ! irix_HOST_OS && ! defined(mingw32_HOST_OS) # if defined(HAVE_SYS_RESOURCE_H) # include # endif @@ -58,7 +58,7 @@ #include #endif -#if defined(PAR) || !(!defined(HAVE_GETRUSAGE) || irix_TARGET_OS || defined(mingw32_TARGET_OS) || defined(cygwin32_TARGET_OS)) +#if defined(PAR) || !(!defined(HAVE_GETRUSAGE) || irix_HOST_OS || defined(mingw32_HOST_OS) || defined(cygwin32_HOST_OS)) #include #endif @@ -127,7 +127,7 @@ static void statsClose( void ); /* elapsedtime() -- The current elapsed time in seconds */ -#if defined(mingw32_TARGET_OS) || defined(cygwin32_TARGET_OS) +#if defined(mingw32_HOST_OS) || defined(cygwin32_HOST_OS) #define HNS_PER_SEC 10000000LL /* FILETIMES are in units of 100ns */ /* Convert FILETIMEs into secs */ #define FT2longlong(ll,ft) \ @@ -137,7 +137,7 @@ static void statsClose( void ); (ll) /= (unsigned long long) (HNS_PER_SEC / CLOCKS_PER_SEC) #endif -#if defined(mingw32_TARGET_OS) || defined(cygwin32_TARGET_OS) +#if defined(mingw32_HOST_OS) || defined(cygwin32_HOST_OS) /* cygwin32 or mingw32 version */ static void getTimes(void) @@ -264,7 +264,7 @@ pageFaults(void) { /* ToDo (on NT): better, get this via the performance data that's stored in the registry. */ -# if !defined(HAVE_GETRUSAGE) || irix_TARGET_OS || defined(mingw32_TARGET_OS) || defined(cygwin32_TARGET_OS) +# if !defined(HAVE_GETRUSAGE) || irix_HOST_OS || defined(mingw32_HOST_OS) || defined(cygwin32_HOST_OS) return 0; # else struct rusage t;