From 591991781843398275024dccb18ed14aa4c29a91 Mon Sep 17 00:00:00 2001 From: jb Date: Sun, 28 Apr 2013 18:16:25 +0000 Subject: 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. git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@198378 138bc75d-0d04-0410-961f-82ee72b054a4 --- libgfortran/intrinsics/system_clock.c | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'libgfortran/intrinsics') 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) -- cgit v1.2.1