OpenE2K/gcc
2
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Fix sign error in SYSTEM_CLOCK kind=4 Windows version.

Browse Source 
2013-04-28  Janne Blomqvist  <jb@gcc.gnu.org>

	* intrinsics/system_clock.c (system_clock_4): Fix sign error in
	Windows version.

From-SVN: r198378
This commit is contained in:
Janne Blomqvist 2013-04-28 21:16:25 +03:00
parent 22ad5e0a85
commit a2f7b4ad34
2 changed files with 7 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
libgfortran/ChangeLog
View File

@ -1,3 +1,8 @@
2013-04-28 Janne Blomqvist <jb@gcc.gnu.org>
* intrinsics/system_clock.c (system_clock_4): Fix sign error in
Windows version.
2013-04-15 Tobias Burnus <burnus@net-b.de> 2013-04-15 Tobias Burnus <burnus@net-b.de>
* list_read.c (finish_separator): Initialize variable. * list_read.c (finish_separator): Initialize variable.
@ -37,7 +42,7 @@
(nml_get_obj_data): Likewise use the correct error mechanism. (nml_get_obj_data): Likewise use the correct error mechanism.
* io/transfer.c (hit_eof): Do not set AFTER_ENDFILE if in namelist * io/transfer.c (hit_eof): Do not set AFTER_ENDFILE if in namelist
mode. mode.
2013-03-29 Tobias Burnus <burnus@net-b.de> 2013-03-29 Tobias Burnus <burnus@net-b.de>
PR fortran/56737 PR fortran/56737

2
libgfortran/intrinsics/system_clock.c
View File

@ -134,7 +134,7 @@ system_clock_4(GFC_INTEGER_4 *count, GFC_INTEGER_4 *count_rate,
QueryPerformanceCounter has potential issues. */ QueryPerformanceCounter has potential issues. */
uint32_t cnt = GetTickCount (); uint32_t cnt = GetTickCount ();
if (cnt > GFC_INTEGER_4_HUGE) if (cnt > GFC_INTEGER_4_HUGE)
cnt -= GFC_INTEGER_4_HUGE - 1; cnt = cnt - GFC_INTEGER_4_HUGE - 1;
*count = cnt; *count = cnt;
} }
if (count_rate) if (count_rate)