From: jvdelisle Date: Sat, 1 Mar 2008 22:15:31 +0000 (+0000) Subject: 2008-03-01 Francois-Xavier Coudert X-Git-Url: http://git.sourceforge.jp/view?p=pf3gnuchains%2Fgcc-fork.git;a=commitdiff_plain;h=1853c82432291aaedc7b07da308fdaa9241b4d7f 2008-03-01 Francois-Xavier Coudert PR libfortran/35355 * intrinsics/time_1.h (__time_1): Fix calculation of user_usec for mingw. git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@132808 138bc75d-0d04-0410-961f-82ee72b054a4 --- diff --git a/libgfortran/ChangeLog b/libgfortran/ChangeLog index 8ed3624e01d..8434c23b54d 100644 --- a/libgfortran/ChangeLog +++ b/libgfortran/ChangeLog @@ -1,3 +1,9 @@ +2008-03-01 Francois-Xavier Coudert + + PR libfortran/35355 + * intrinsics/time_1.h (__time_1): Fix calculation of user_usec + for mingw. + 2008-03-01 Janne Blomqvist PR libfortran/35063 diff --git a/libgfortran/intrinsics/time_1.h b/libgfortran/intrinsics/time_1.h index 43e6d8960c1..93b3d2dc467 100644 --- a/libgfortran/intrinsics/time_1.h +++ b/libgfortran/intrinsics/time_1.h @@ -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; }