Commit d4b35ef7 by Jerry DeLisle

re PR fortran/64432 (SYSTEM_CLOCK(COUNT_RATE=rate) wrong result for integer(4)::rate)

2015-03-16 Jerry DeLisle  <jvdelisle@gcc.gnu.org>

	PR libgfortran/64432
	* intrinsics/system_clock.c (system_clock4, system_clock8):
	Cleanup some whitespace.

From-SVN: r221472
parent 65263c1f
2015-03-16 Jerry DeLisle <jvdelisle@gcc.gnu.org>
PR libgfortran/64432
* intrinsics/system_clock.c (system_clock4, system_clock8):
Cleanup some whitespace.
2015-03-11 Thomas Schwinge <thomas@codesourcery.com> 2015-03-11 Thomas Schwinge <thomas@codesourcery.com>
* caf/single.c (caf_runtime_error): Revert 2014-11-28 changes. * caf/single.c (caf_runtime_error): Revert 2014-11-28 changes.
......
...@@ -109,10 +109,14 @@ gf_gettime_mono (time_t * secs, long * fracsecs, long * tck) ...@@ -109,10 +109,14 @@ gf_gettime_mono (time_t * secs, long * fracsecs, long * tck)
#endif /* !__MINGW32 && !__CYGWIN__ */ #endif /* !__MINGW32 && !__CYGWIN__ */
extern void system_clock_4 (GFC_INTEGER_4 *, GFC_INTEGER_4 *, GFC_INTEGER_4 *); extern void
system_clock_4 (GFC_INTEGER_4 *count, GFC_INTEGER_4 *count_rate,
GFC_INTEGER_4 *count_max);
export_proto(system_clock_4); export_proto(system_clock_4);
extern void system_clock_8 (GFC_INTEGER_8 *, GFC_INTEGER_8 *, GFC_INTEGER_8 *); extern void
system_clock_8 (GFC_INTEGER_8 *count, GFC_INTEGER_8 *count_rate,
GFC_INTEGER_8 *count_max);
export_proto(system_clock_8); export_proto(system_clock_8);
...@@ -122,10 +126,10 @@ export_proto(system_clock_8); ...@@ -122,10 +126,10 @@ export_proto(system_clock_8);
for COUNT. */ for COUNT. */
void void
system_clock_4(GFC_INTEGER_4 *count, GFC_INTEGER_4 *count_rate, system_clock_4 (GFC_INTEGER_4 *count, GFC_INTEGER_4 *count_rate,
GFC_INTEGER_4 *count_max) GFC_INTEGER_4 *count_max)
{ {
#if defined(__MINGW32__) || defined(__CYGWIN__) #if defined(__MINGW32__) || defined(__CYGWIN__)
if (count) if (count)
{ {
/* Use GetTickCount here as the resolution and range is /* Use GetTickCount here as the resolution and range is
...@@ -176,7 +180,7 @@ system_clock_4(GFC_INTEGER_4 *count, GFC_INTEGER_4 *count_rate, ...@@ -176,7 +180,7 @@ system_clock_4(GFC_INTEGER_4 *count, GFC_INTEGER_4 *count_rate,
void void
system_clock_8 (GFC_INTEGER_8 *count, GFC_INTEGER_8 *count_rate, system_clock_8 (GFC_INTEGER_8 *count, GFC_INTEGER_8 *count_rate,
GFC_INTEGER_8 *count_max) GFC_INTEGER_8 *count_max)
{ {
#if defined(__MINGW32__) || defined(__CYGWIN__) #if defined(__MINGW32__) || defined(__CYGWIN__)
LARGE_INTEGER cnt; LARGE_INTEGER cnt;
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment