Upgrade to Time::HiRes 1.55

p4raw-id: //depot/perl@22159

diff --git a/ext/Time/HiRes/Changes b/ext/Time/HiRes/Changes
index e5fbe83..2e4a383 100644 (file)
--- a/ext/Time/HiRes/Changes
+++ b/ext/Time/HiRes/Changes
@@ -1,5 +1,9 @@
 Revision history for Perl extension Time::HiRes.
 
 Revision history for Perl extension Time::HiRes.
 

+1.55
+       - Windows: ming32 patch from Mike Pomraning (use Perl's Const64()
+         instead of VC-specific i64 suffix)
+

 1.54
        - Solaris: like Tru64 (dec_osf) also Solaris need -lrt for nanosleep
 
 1.54
        - Solaris: like Tru64 (dec_osf) also Solaris need -lrt for nanosleep
 

diff --git a/ext/Time/HiRes/HiRes.pm b/ext/Time/HiRes/HiRes.pm
index 72eed1c..50f42f2 100644 (file)
--- a/ext/Time/HiRes/HiRes.pm
+++ b/ext/Time/HiRes/HiRes.pm
@@ -15,7 +15,7 @@ require DynaLoader;
                 d_usleep d_ualarm d_gettimeofday d_getitimer d_setitimer
                 d_nanosleep);
        
                 d_usleep d_ualarm d_gettimeofday d_getitimer d_setitimer
                 d_nanosleep);
        

-$VERSION = '1.54';
+$VERSION = '1.55';

 $XS_VERSION = $VERSION;
 $VERSION = eval $VERSION;
 
 $XS_VERSION = $VERSION;
 $VERSION = eval $VERSION;
 

diff --git a/ext/Time/HiRes/HiRes.xs b/ext/Time/HiRes/HiRes.xs
index 2765983..afde108 100644 (file)
--- a/ext/Time/HiRes/HiRes.xs
+++ b/ext/Time/HiRes/HiRes.xs
@@ -193,8 +193,8 @@ _gettimeofday(pTHX_ struct timeval *tp, void *not_used)
         QueryPerformanceCounter((LARGE_INTEGER*)&ticks);
         ticks -= MY_CXT.base_ticks;
         ft.ft_i64 = MY_CXT.base_systime_as_filetime.ft_i64
         QueryPerformanceCounter((LARGE_INTEGER*)&ticks);
         ticks -= MY_CXT.base_ticks;
         ft.ft_i64 = MY_CXT.base_systime_as_filetime.ft_i64

-                    + 10000000i64 * (ticks / MY_CXT.tick_frequency)
-                    +(10000000i64 * (ticks % MY_CXT.tick_frequency)) / MY_CXT.tick_frequency;
+                    + Const64(10000000) * (ticks / MY_CXT.tick_frequency)
+                    +(Const64(10000000) * (ticks % MY_CXT.tick_frequency)) / MY_CXT.tick_frequency;

     }
     else {
         QueryPerformanceFrequency((LARGE_INTEGER*)&MY_CXT.tick_frequency);
     }
     else {
         QueryPerformanceFrequency((LARGE_INTEGER*)&MY_CXT.tick_frequency);