Upgrade to Time::HiRes 1.55
Rafael Garcia-Suarez [Thu, 15 Jan 2004 22:19:25 +0000 (22:19 +0000)]
p4raw-id: //depot/perl@22159

ext/Time/HiRes/Changes
ext/Time/HiRes/HiRes.pm
ext/Time/HiRes/HiRes.xs

index e5fbe83..2e4a383 100644 (file)
@@ -1,5 +1,9 @@
 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
 
index 72eed1c..50f42f2 100644 (file)
@@ -15,7 +15,7 @@ require DynaLoader;
                 d_usleep d_ualarm d_gettimeofday d_getitimer d_setitimer
                 d_nanosleep);
        
-$VERSION = '1.54';
+$VERSION = '1.55';
 $XS_VERSION = $VERSION;
 $VERSION = eval $VERSION;
 
index 2765983..afde108 100644 (file)
@@ -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
-                    + 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);