From: Janne Blomqvist Date: Sun, 28 Apr 2013 18:16:25 +0000 (+0300) Subject: Fix sign error in SYSTEM_CLOCK kind=4 Windows version. X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=a2f7b4ad34f5690f71d95d4e438b9a8006d45bd9;p=gcc.git Fix sign error in SYSTEM_CLOCK kind=4 Windows version. 2013-04-28 Janne Blomqvist * intrinsics/system_clock.c (system_clock_4): Fix sign error in Windows version. From-SVN: r198378 --- diff --git a/libgfortran/ChangeLog b/libgfortran/ChangeLog index 25219aae7db..3f2e9d1c7c7 100644 --- a/libgfortran/ChangeLog +++ b/libgfortran/ChangeLog @@ -1,3 +1,8 @@ +2013-04-28 Janne Blomqvist + + * intrinsics/system_clock.c (system_clock_4): Fix sign error in + Windows version. + 2013-04-15 Tobias Burnus * list_read.c (finish_separator): Initialize variable. @@ -37,7 +42,7 @@ (nml_get_obj_data): Likewise use the correct error mechanism. * io/transfer.c (hit_eof): Do not set AFTER_ENDFILE if in namelist mode. - + 2013-03-29 Tobias Burnus PR fortran/56737 diff --git a/libgfortran/intrinsics/system_clock.c b/libgfortran/intrinsics/system_clock.c index 74a294db810..ba4cd474107 100644 --- a/libgfortran/intrinsics/system_clock.c +++ b/libgfortran/intrinsics/system_clock.c @@ -134,7 +134,7 @@ system_clock_4(GFC_INTEGER_4 *count, GFC_INTEGER_4 *count_rate, QueryPerformanceCounter has potential issues. */ uint32_t cnt = GetTickCount (); if (cnt > GFC_INTEGER_4_HUGE) - cnt -= GFC_INTEGER_4_HUGE - 1; + cnt = cnt - GFC_INTEGER_4_HUGE - 1; *count = cnt; } if (count_rate)