From: Rafael Garcia-Suarez <rgarciasuarez@gmail.com>
Date: Thu, 15 Jan 2004 22:19:25 +0000 (+0000)
Subject: Upgrade to Time::HiRes 1.55
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=b6136f411bbeb2d2e089c82b085ccc9f4b8450cd;p=p5sagit%2Fp5-mst-13.2.git

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
--- a/ext/Time/HiRes/Changes
+++ b/ext/Time/HiRes/Changes
@@ -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
 
diff --git a/ext/Time/HiRes/HiRes.pm b/ext/Time/HiRes/HiRes.pm
index 72eed1c..50f42f2 100644
--- 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);
 	
-$VERSION = '1.54';
+$VERSION = '1.55';
 $XS_VERSION = $VERSION;
 $VERSION = eval $VERSION;
 
diff --git a/ext/Time/HiRes/HiRes.xs b/ext/Time/HiRes/HiRes.xs
index 2765983..afde108 100644
--- 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
-                    + 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);