diff options
-rw-r--r-- | ChangeLog | 4 | ||||
-rw-r--r-- | gc.c | 21 |
2 files changed, 25 insertions, 0 deletions
@@ -1,3 +1,7 @@ +Tue Aug 12 18:51:29 2008 TAKAO Kouji <kouji@takao7.net> + + * gc.c (getrusage_time): Returned effective value on Windows. + Tue Aug 12 18:51:11 2008 Tanaka Akira <akr@fsij.org> * transcode.c (rb_trans_open): free ts before raise. @@ -119,6 +119,27 @@ getrusage_time(void) getrusage(RUSAGE_SELF, &usage); time = usage.ru_utime; return time.tv_sec + time.tv_usec * 1e-6; +#elif defined _WIN32 + FILETIME creation_time, exit_time, kernel_time, user_time; + ULARGE_INTEGER ui; + LONG_LONG q; + double t; + + if (GetProcessTimes(GetCurrentProcess(), + &creation_time, &exit_time, &kernel_time, &user_time) == 0) + { + return 0.0; + } + memcpy(&ui, &user_time, sizeof(FILETIME)); + q = ui.QuadPart / 10L; + t = (DWORD)(q % 1000000L) * 1e-6; + q /= 1000000L; +#ifdef __GNUC__ + t += q; +#else + t += (double)(DWORD)(q >> 16) * (1 << 16); + t += (DWORD)q & ~(~0 << 16); +#endif #else return 0.0; #endif |