home *** CD-ROM | disk | FTP | other *** search
/ Programming Win32 Under the API / ProgrammingWin32UnderTheApiPatVillani.iso / patches / gcc-2_95_2-x86-win32-patches.zi / gcc-2.95.2-patches / broken-down / gcc-2.95.2-libf2c-detime.diff < prev    next >
Encoding:
Text File  |  1999-11-08  |  2.5 KB  |  79 lines
  1. Mon Jun 14 17:34:09 1999  Mumit Khan  <khan@xraylith.wisc.edu>
  2.  
  3.     * libU77/etime_.c (G77_etime_0): Provide support for new w32api
  4.     headers on x86-win32.
  5.     * libU77/dtime_.c (G77_dtime_0): Likewise.
  6.  
  7. Index: gcc-2.95.2/libf2c/libU77/dtime_.c
  8. ===================================================================
  9. RCS file: /homes/khan/src/CVSROOT/gcc-2.95.2/libf2c/libU77/dtime_.c,v
  10. retrieving revision 1.1.1.1
  11. diff -u -3 -p -r1.1.1.1 dtime_.c
  12. --- gcc-2.95.2/libf2c/libU77/dtime_.c    1999/11/05 01:10:12    1.1.1.1
  13. +++ gcc-2.95.2/libf2c/libU77/dtime_.c    1999/11/05 08:22:32
  14. @@ -86,16 +86,24 @@ double G77_dtime_0 (real tarray[2])
  15.          }
  16.        else
  17.          {
  18. +#ifdef _GNU_H_WINDOWS32_STRUCTURES
  19.            clock_freq = ((unsigned long long) freq.HighPart << 32)
  20.                             + ((unsigned) freq.LowPart);
  21. +#else
  22. +          clock_freq = freq.QuadPart;
  23. +#endif
  24.          }
  25.      }
  26.  
  27.        if (! QueryPerformanceCounter (&counter_val))
  28.      return -1.0;
  29.  
  30. +#ifdef _GNU_H_WINDOWS32_STRUCTURES
  31.        count = ((unsigned long long) counter_val.HighPart << 32)
  32.                + (unsigned) counter_val.LowPart;
  33. +#else
  34. +      count = counter_val.QuadPart;
  35. +#endif
  36.        delta = ((double) (count - old_count)) / clock_freq;
  37.        tarray[0] = (float) delta;
  38.        tarray[1] = 0.0;
  39. Index: gcc-2.95.2/libf2c/libU77/etime_.c
  40. ===================================================================
  41. RCS file: /homes/khan/src/CVSROOT/gcc-2.95.2/libf2c/libU77/etime_.c,v
  42. retrieving revision 1.1.1.1
  43. diff -u -3 -p -r1.1.1.1 etime_.c
  44. --- gcc-2.95.2/libf2c/libU77/etime_.c    1999/11/05 01:10:12    1.1.1.1
  45. +++ gcc-2.95.2/libf2c/libU77/etime_.c    1999/11/05 08:22:32
  46. @@ -86,20 +86,32 @@ double G77_etime_0 (real tarray[2])
  47.          }
  48.        else
  49.          {
  50. +#ifdef _GNU_H_WINDOWS32_STRUCTURES
  51.            clock_freq = ((unsigned long long) freq.HighPart << 32)
  52.                             + ((unsigned) freq.LowPart);
  53. +#else
  54. +          clock_freq = freq.QuadPart;
  55. +#endif
  56.            if (! QueryPerformanceCounter (&counter_val))
  57.          return -1.0;
  58. +#ifdef _GNU_H_WINDOWS32_STRUCTURES
  59.            old_count = ((unsigned long long) counter_val.HighPart << 32)
  60.                        + (unsigned) counter_val.LowPart;
  61. +#else
  62. +          old_count = counter_val.QuadPart;
  63. +#endif
  64.          }
  65.      }
  66.  
  67.        if (! QueryPerformanceCounter (&counter_val))
  68.      return -1.0;
  69.  
  70. +#ifdef _GNU_H_WINDOWS32_STRUCTURES
  71.        count = ((unsigned long long) counter_val.HighPart << 32)
  72.                + (unsigned) counter_val.LowPart;
  73. +#else
  74. +      count = counter_val.QuadPart;
  75. +#endif
  76.        tarray[0] = usertime = (double) (count - old_count) / clock_freq;
  77.        tarray[1] = systime = 0.0;
  78.      }
  79.