mirror/gcc
2
0
Fork 0
mirror of git://gcc.gnu.org/git/gcc.git synced 2025-02-25 20:36:14 +08:00
Code Issues Packages Projects Releases Wiki Activity

re PR libfortran/35355 (CPU_TIME gives wrong values on mingw)

Browse Source 
2008-03-01  Francois-Xavier Coudert  <fxcoudert@gcc.gnu.org>

	PR libfortran/35355
	* intrinsics/time_1.h (__time_1): Fix calculation of user_usec
	for mingw.

From-SVN: r132808
This commit is contained in:
Francois-Xavier Coudert 2008-03-01 22:15:31 +00:00 committed by Jerry DeLisle
parent 4dbc8575fb
commit 9bd97567c9
2 changed files with 8 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
libgfortran/ChangeLog
View File

@ -1,3 +1,9 @@
2008-03-01 Francois-Xavier Coudert <fxcoudert@gcc.gnu.org>
PR libfortran/35355
* intrinsics/time_1.h (__time_1): Fix calculation of user_usec
for mingw.
2008-03-01 Janne Blomqvist <jb@gcc.gnu.org>
PR libfortran/35063

4
libgfortran/intrinsics/time_1.h
View File

@ -104,10 +104,10 @@ __time_1 (long *user_sec, long *user_usec, long *system_sec, long *system_usec)
&kernel_time.ft, &user_time.ft);
*user_sec = user_time.ulltime / 10000000;
*user_usec = user_time.ulltime % 10000000;
*user_usec = (user_time.ulltime % 10000000) / 10;
*system_sec = kernel_time.ulltime / 10000000;
*system_usec = kernel_time.ulltime % 10000000;
*system_usec = (kernel_time.ulltime % 10000000) / 10;
return 0;
}