From c5a6cbd4bacd65046a1ee50e858737e1f5784fe8 Mon Sep 17 00:00:00 2001 From: Janne Blomqvist Date: Wed, 23 May 2012 21:52:47 +0300 Subject: PR 53456 clock_gettime fallback for gf_gettime 2012-05-23 Janne Blomqvist PR fortran/53456 * intrinsics/time_1.h (gf_gettime): Fallback for clock_gettime. From-SVN: r187806 --- libgfortran/ChangeLog | 5 +++++ libgfortran/intrinsics/time_1.h | 10 ++++++++-- 2 files changed, 13 insertions(+), 2 deletions(-) (limited to 'libgfortran') diff --git a/libgfortran/ChangeLog b/libgfortran/ChangeLog index e5f79e0..3dfde05 100644 --- a/libgfortran/ChangeLog +++ b/libgfortran/ChangeLog @@ -1,3 +1,8 @@ +2012-05-23 Janne Blomqvist + + PR fortran/53456 + * intrinsics/time_1.h (gf_gettime): Fallback for clock_gettime. + 2012-05-23 Robert Mason Tobias Burnus diff --git a/libgfortran/intrinsics/time_1.h b/libgfortran/intrinsics/time_1.h index aaca56a..ca5b26b 100644 --- a/libgfortran/intrinsics/time_1.h +++ b/libgfortran/intrinsics/time_1.h @@ -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; -- cgit v1.1