From b6136f411bbeb2d2e089c82b085ccc9f4b8450cd Mon Sep 17 00:00:00 2001 From: Rafael Garcia-Suarez Date: Thu, 15 Jan 2004 22:19:25 +0000 Subject: [PATCH] Upgrade to Time::HiRes 1.55 p4raw-id: //depot/perl@22159 --- ext/Time/HiRes/Changes | 4 ++++ ext/Time/HiRes/HiRes.pm | 2 +- ext/Time/HiRes/HiRes.xs | 4 ++-- 3 files changed, 7 insertions(+), 3 deletions(-) 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); -- 2.7.4