From 69ca976728b43ad84f9a8e3be9aaf852cdee8a8f Mon Sep 17 00:00:00 2001 From: Kai Tietz Date: Sat, 29 Jan 2011 17:20:13 +0000 Subject: ctime.c (ctime_r): Improve implementation. 2011-01-29 Kai Tietz * intrinsics/ctime.c (ctime_r): Improve implementation. From-SVN: r169389 --- libgfortran/intrinsics/ctime.c | 8 +++++++- 1 file changed, 7 insertions(+), 1 deletion(-) (limited to 'libgfortran/intrinsics') diff --git a/libgfortran/intrinsics/ctime.c b/libgfortran/intrinsics/ctime.c index 2729616..b7b463c 100644 --- a/libgfortran/intrinsics/ctime.c +++ b/libgfortran/intrinsics/ctime.c @@ -42,11 +42,17 @@ see the files COPYING3 and COPYING.RUNTIME respectively. If not, see #ifndef HAVE_CTIME_R +/* Make sure we don't see here a macro. */ +#undef ctime_r + static char * ctime_r (const time_t * timep, char * buf __attribute__((unused))) { #ifdef HAVE_CTIME - return ctime (timep); + char *tmp = ctime (timep); + if (tmp) + tmp = strcpy (buf, tmp); + return tmp; #else return NULL; #endif -- cgit v1.1