This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
arybase: silence some compiler warnings
authorDavid Mitchell <davem@iabyn.com>
Tue, 12 Nov 2013 16:02:12 +0000 (16:02 +0000)
committerDavid Mitchell <davem@iabyn.com>
Wed, 13 Nov 2013 10:38:40 +0000 (10:38 +0000)
some of the static functions in  ptable.h are unused. It looks
like ptable.h has been written to be more general-purpose and reusable,
but at the moment its only used in one place, so '#if 0' the unused
functions for now, to shut up the compiler..

ext/arybase/arybase.pm
ext/arybase/arybase.xs
ext/arybase/ptable.h

index 7181748..3c090d6 100644 (file)
@@ -1,6 +1,6 @@
 package arybase;
 
-our $VERSION = "0.06";
+our $VERSION = "0.07";
 
 require XSLoader;
 XSLoader::load(); # This returns true, which makes require happy.
index cde9bb8..f8f9ce2 100644 (file)
@@ -436,6 +436,7 @@ FETCH(...)
 void
 STORE(SV *sv, IV newbase)
     CODE:
+      PERL_UNUSED_VAR(sv);
       if (FEATURE_ARYBASE_IS_ENABLED) {
        SV *base = cop_hints_fetch_pvs(PL_curcop, "$[", 0);
        if (SvOK(base) ? SvIV(base) == newbase : !newbase) XSRETURN_EMPTY;
index 175d037..b3f38d8 100644 (file)
@@ -164,6 +164,8 @@ STATIC void PTABLE_PREFIX(_store)(pPTBL_ ptable * const t, const void * const ke
  }
 }
 
+/* this function appears to be unused */
+#if 0
 #ifndef ptable_walk
 STATIC void ptable_walk(pTHX_ ptable * const t, void (*cb)(pTHX_ ptable_ent *ent, void *userdata), void *userdata) {
 #define ptable_walk(T, CB, UD) ptable_walk(aTHX_ (T), (CB), (UD))
@@ -178,7 +180,10 @@ STATIC void ptable_walk(pTHX_ ptable * const t, void (*cb)(pTHX_ ptable_ent *ent
  }
 }
 #endif /* !ptable_walk */
+#endif
 
+/* this function appears to be unused */
+#if 0
 STATIC void PTABLE_PREFIX(_clear)(pPTBL_ ptable * const t) {
  if (t && t->items) {
   ptable_ent ** const array = t->ary;
@@ -199,7 +204,10 @@ STATIC void PTABLE_PREFIX(_clear)(pPTBL_ ptable * const t) {
   t->items = 0;
  }
 }
+#endif
 
+/* this function appears to be unused */
+#if 0
 STATIC void PTABLE_PREFIX(_free)(pPTBL_ ptable * const t) {
  if (!t)
   return;
@@ -207,6 +215,7 @@ STATIC void PTABLE_PREFIX(_free)(pPTBL_ ptable * const t) {
  PerlMemShared_free(t->ary);
  PerlMemShared_free(t);
 }
+#endif
 
 #undef pPTBL
 #undef pPTBL_