[project @ 1997-07-11 19:24:42 by sof]

cygwin32 now uses getrusage()

diff --git a/ghc/runtime/storage/SMstats.lc b/ghc/runtime/storage/SMstats.lc
index 9411b54..9e98bb7 100644 (file)
--- a/ghc/runtime/storage/SMstats.lc
+++ b/ghc/runtime/storage/SMstats.lc
@@ -266,12 +266,15 @@ pagefaults(STG_NO_ARGS)
 static I_
 pagefaults(STG_NO_ARGS)
 {
-# if !defined(HAVE_GETRUSAGE) || irix_TARGET_OS || cygwin32_TARGET_OS
+# if !defined(HAVE_GETRUSAGE) || irix_TARGET_OS
     return 0;
 # else
     struct rusage t;
 
     getrusage(RUSAGE_SELF, &t);
+    /* cygwin32 note: Last time I looked (b18), the ru_majflt field
+       was always filled in with a 0. -- SOF (ToDo: Win32ify?)
+    */
     return(t.ru_majflt);
 # endif
 }