Patchwork [fortran] Fix sign error in SYSTEM_CLOCK kind=4 Windows version

login
register
mail settings
Submitter Janne Blomqvist
Date April 28, 2013, 6:18 p.m.
Message ID <CAO9iq9ENMW-M79t_3D0MLOv_JhLHHBkafzf_f4+B2yfp0-ibCw@mail.gmail.com>
Download mbox | patch
Permalink /patch/240270/
State New
Headers show

Comments

Janne Blomqvist - April 28, 2013, 6:18 p.m.
Hi,

committed the patch below as obvious:



--
Janne Blomqvist

Patch

Index: ChangeLog
===================================================================
--- ChangeLog   (revision 198377)
+++ ChangeLog   (working copy)
@@ -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>

        * 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  <burnus@net-b.de>

        PR fortran/56737
Index: intrinsics/system_clock.c
===================================================================
--- intrinsics/system_clock.c   (revision 198377)
+++ intrinsics/system_clock.c   (working copy)
@@ -134,7 +134,7 @@  system_clock_4(GFC_INTEGER_4 *count, GFC
         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)