Commit 474dd677 authored by sof's avatar sof
Browse files

[project @ 2001-07-08 17:04:04 by sof]

getTimes: fix Win95 fallback
parent 130677d4
/* ----------------------------------------------------------------------------- /* -----------------------------------------------------------------------------
* $Id: Stats.c,v 1.29 2001/07/03 16:26:03 rrt Exp $ * $Id: Stats.c,v 1.30 2001/07/08 17:04:04 sof Exp $
* *
* (c) The GHC Team, 1998-1999 * (c) The GHC Team, 1998-1999
* *
...@@ -131,6 +131,8 @@ getTimes(void) ...@@ -131,6 +131,8 @@ getTimes(void)
if (!GetProcessTimes (GetCurrentProcess(), &creationTime, if (!GetProcessTimes (GetCurrentProcess(), &creationTime,
&exitTime, &kernelTime, &userTime)) { &exitTime, &kernelTime, &userTime)) {
/* Probably on a Win95 box..*/ /* Probably on a Win95 box..*/
CurrentElapsedTime = 0;
CurrentUserTime = 0;
return; return;
} }
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment