system_clock.c (system_clock_4, [...]): Undefine TCK.

* intrinsics/system_clock.c (system_clock_4, system_clock_8): Undefine TCK. From-SVN: r160469

system_clock.c (system_clock_4, [...]): Undefine TCK.
* intrinsics/system_clock.c (system_clock_4, system_clock_8): Undefine TCK. From-SVN: r160469
b807f4f8 · Francois-Xavier Coudert · François-Xavier Coudert · 76c85743 · b807f4f8 · b807f4f8
Commit b807f4f8 authored Jun 09, 2010 by Francois-Xavier Coudert Committed by François-Xavier Coudert Jun 09, 2010
Hide whitespace changes
Inline Side-by-side

Showing with 7 additions and 0 deletions

libgfortran/ChangeLog
+5 -0

libgfortran/intrinsics/system_clock.c
+2 -0

No files found.
--- a/libgfortran/ChangeLog
+++ b/libgfortran/ChangeLog
+2010-06-09  Francois-Xavier Coudert  <fxcoudert@gcc.gnu.org>
+
+	* intrinsics/system_clock.c (system_clock_4, system_clock_8):
+	Undefine TCK.
+
 2010-06-04  Thomas Koenig  <tkoenig@gcc.gnu.org>

 	PR libfortran/34670

--- a/libgfortran/intrinsics/system_clock.c
+++ b/libgfortran/intrinsics/system_clock.c
@@ -56,6 +56,7 @@ system_clock_4(GFC_INTEGER_4 *count, GFC_INTEGER_4 *count_rate,
  GFC_INTEGER_4 mx;

 #if defined(HAVE_SYS_TIME_H) && defined(HAVE_GETTIMEOFDAY)
+#undef TCK
 #define TCK 1000
  struct timeval tp1;

@@ -117,6 +118,7 @@ system_clock_8 (GFC_INTEGER_8 *count, GFC_INTEGER_8 *count_rate,
  GFC_INTEGER_8 mx;

 #if defined(HAVE_SYS_TIME_H) && defined(HAVE_GETTIMEOFDAY)
+#undef TCK
 #define TCK 1000000
  struct timeval tp1;