git
/
gcc
mirror of git://gcc.gnu.org/git/gcc.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

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
This commit is contained in:
Jerry DeLisle 2015-03-17 01:04:58 +00:00
parent 65263c1f70
commit d4b35ef74c
2 changed files with 15 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
libgfortran/ChangeLog
View File

@ -1,3 +1,9 @@
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.

14
libgfortran/intrinsics/system_clock.c
View File

@ -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);
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,
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;