FAQ
In perl.git, the branch blead has been updated

<http://perl5.git.perl.org/perl.git/commitdiff/a914236c29009c02a3e405a69c6f5359c4be9e7a?hp=255b5140e6fafe7c263fd4211a31b5cc63ae0b70>

- Log -----------------------------------------------------------------
commit a914236c29009c02a3e405a69c6f5359c4be9e7a
Author: Jarkko Hietaniemi <jhi@iki.fi>
Date: Sat Mar 12 19:17:20 2016 -0500

     Time-HiRes: not_used is unused

M dist/Time-HiRes/HiRes.xs

commit da7a6455efcc07c746f3370ea56acb52729c0fe5
Author: Jarkko Hietaniemi <jhi@iki.fi>
Date: Sat Mar 12 19:15:24 2016 -0500

     Time-HiRes: no mutex for you due to mistyped USE

M dist/Time-HiRes/HiRes.xs

commit 6da77c36084dcec5c8d2bbcd3b827695c23c6580
Author: Jarkko Hietaniemi <jhi@iki.fi>
Date: Sat Mar 12 19:07:54 2016 -0500

     Time-HiRes: remove unused hrt_ualarm

     Binary compat with 1.91 would mean roughly 2006-10, which means
     either Perl 5.8.8 or 5.9.5. Time to let go. No hits in CPAN,
     as observed by Tony Cook: http://grep.cpan.me/?q=hrt_ualarm

M dist/Time-HiRes/HiRes.xs
-----------------------------------------------------------------------

Summary of changes:
  dist/Time-HiRes/HiRes.xs | 12 +++---------
  1 file changed, 3 insertions(+), 9 deletions(-)

diff --git a/dist/Time-HiRes/HiRes.xs b/dist/Time-HiRes/HiRes.xs
index 02909d7..c8b20b4 100644
--- a/dist/Time-HiRes/HiRes.xs
+++ b/dist/Time-HiRes/HiRes.xs
@@ -179,6 +179,7 @@ _gettimeofday(pTHX_ struct timeval *tp, void *not_used)
      unsigned __int64 ticks;
      FT_t ft;

+ PERL_UNUSED_ARG(not_used);
      if (MY_CXT.run_count++ == 0 ||
   MY_CXT.base_systime_as_filetime.ft_i64 > MY_CXT.reset_time) {
          QueryPerformanceFrequency((LARGE_INTEGER*)&MY_CXT.tick_frequency);
@@ -490,13 +491,6 @@ hrt_ualarm_itimer(int usec, int uinterval)
    return hrt_ualarm_itimero(NULL, usec, uinterval);
  }

-#ifdef HAS_UALARM
-static int
-hrt_ualarm(int usec, int interval) /* for binary compat before 1.91 */
-{
- return hrt_ualarm_itimer(usec, interval);
-}
-#endif /* #ifdef HAS_UALARM */
  #endif /* #if !defined(HAS_UALARM) && defined(HAS_SETITIMER) */

  #if !defined(HAS_UALARM) && defined(HAS_SETITIMER)
@@ -779,7 +773,7 @@ static mach_timebase_info_data_t timebase_info;
  static struct timespec timespec_init;

  static int darwin_time_init() {
-#ifdef USE_ITHREAD
+#ifdef USE_ITHREADS
    PERL_MUTEX_LOCK(&darwin_time_mutex);
  #endif
    struct timeval tv;
@@ -796,7 +790,7 @@ static int darwin_time_init() {
        }
      }
    }
-#ifdef USE_ITHREAD
+#ifdef USE_ITHREADS
    PERL_MUTEX_UNLOCK(&darwin_time_mutex);
  #endif
    return success;

--
Perl5 Master Repository

Search Discussions

Related Discussions

Discussion Navigation
viewthread | post
posts ‹ prev | 1 of 1 | next ›
Discussion Overview
groupperl5-changes @
categoriesperl
postedMar 13, '16 at 12:52a
activeMar 13, '16 at 12:52a
posts1
users1
websiteperl.org

1 user in discussion

Jarkko Hietaniemi: 1 post

People

Translate

site design / logo © 2017 Grokbase