suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

fix 'time' CPU-time wraparound under Windows

Browse Source 
svn: r17577
This commit is contained in:
Matthew Flatt 2010-01-08 20:07:59 +00:00
parent 4fedeeaf7a
commit d665fd5b23
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
src/mzscheme/src/fun.c
View File

@ -8195,9 +8195,10 @@ long scheme_get_process_milliseconds(void)
{
FILETIME cr, ex, kr, us;
if (GetProcessTimes(GetCurrentProcess(), &cr, &ex, &kr, &us)) {
unsigned long n;
n = (kr.dwLowDateTime + us.dwLowDateTime) / 10000;
return n;
mzlonglong v;
v = ((((mzlonglong)kr.dwHighDateTime << 32) + kr.dwLowDateTime)
+ (((mzlonglong)us.dwHighDateTime << 32) + us.dwLowDateTime));
return (unsigned long)(v / 10000);
}
}
# endif