OpenE2K/gcc
2
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

PR 53456 clock_gettime fallback for gf_gettime

Browse Source 
2012-05-23  Janne Blomqvist  <jb@gcc.gnu.org>

	PR fortran/53456
	* intrinsics/time_1.h (gf_gettime): Fallback for clock_gettime.

From-SVN: r187806
This commit is contained in:
Janne Blomqvist 2012-05-23 21:52:47 +03:00
parent e8257960f0
commit c5a6cbd4ba
2 changed files with 13 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
libgfortran/ChangeLog
View File

@ -1,3 +1,8 @@
2012-05-23 Janne Blomqvist <jb@gcc.gnu.org>
PR fortran/53456
* intrinsics/time_1.h (gf_gettime): Fallback for clock_gettime.
2012-05-23 Robert Mason <rbmj@verizon.net>
Tobias Burnus <burnus@net-b.de>

10
libgfortran/intrinsics/time_1.h
View File

@ -181,8 +181,8 @@ gf_cputime (long *user_sec, long *user_usec, long *system_sec, long *system_usec
#endif
/* Realtime clock with microsecond resolution, falling back to less
precise functions if the target does not support gettimeofday().
/* Realtime clock with microsecond resolution, falling back to other
functions if the target does not support gettimeofday().
Arguments:
secs - OUTPUT, seconds
@ -204,6 +204,12 @@ gf_gettime (time_t * secs, long * usecs)
*secs = tv.tv_sec;
*usecs = tv.tv_usec;
return err;
#elif defined(HAVE_CLOCK_GETTIME)
struct timespec ts;
int err = clock_gettime (CLOCK_REALTIME, &ts);
*secs = ts.tv_sec;
*usecs = ts.tv_nsec / 1000;
return err;
#else
time_t t = time (NULL);
*secs = t;