diff options
| author | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2004-01-15 22:19:25 +0000 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2004-01-15 22:19:25 +0000 |
| commit | b6136f411bbeb2d2e089c82b085ccc9f4b8450cd (patch) | |
| tree | 6807dfc2c9dd093cb028508d28bfa96e0070e7fc /ext/Time | |
| parent | c4c87a065d5684a07ac86a151149508724e14d4e (diff) | |
| download | perl-b6136f411bbeb2d2e089c82b085ccc9f4b8450cd.tar.gz | |
Upgrade to Time::HiRes 1.55
p4raw-id: //depot/perl@22159
Diffstat (limited to 'ext/Time')
| -rw-r--r-- | ext/Time/HiRes/Changes | 4 | ||||
| -rw-r--r-- | ext/Time/HiRes/HiRes.pm | 2 | ||||
| -rw-r--r-- | 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 e5fbe837ff..2e4a38338c 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 72eed1c4a5..50f42f256a 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 2765983bf6..afde10838d 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); |