From: sof <unknown>
Date: Fri, 11 Jul 1997 19:24:42 +0000 (+0000)
Subject: [project @ 1997-07-11 19:24:42 by sof]
X-Git-Tag: Approximately_1000_patches_recorded~243
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=9070c14b2ce2b85a40997a3992005a88bd6e0549;p=ghc-hetmet.git

[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
--- 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
 }