This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
avoid unused-var warnings in compiled XS
authorZefram <zefram@fysh.org>
Tue, 14 Nov 2017 08:45:55 +0000 (08:45 +0000)
committerZefram <zefram@fysh.org>
Tue, 14 Nov 2017 08:45:55 +0000 (08:45 +0000)
Code generated by ExtUtils-ParseXS for certain kinds of XS sub
was creating an "items" variable and never using it, resulting in
distracting warnings from the C compiler.  Add "PERL_UNUSED_VAR(items)"
where appropriate.

dist/ExtUtils-ParseXS/Changes
dist/ExtUtils-ParseXS/lib/ExtUtils/ParseXS.pm
dist/ExtUtils-ParseXS/lib/ExtUtils/ParseXS/Constants.pm
dist/ExtUtils-ParseXS/lib/ExtUtils/ParseXS/CountLines.pm
dist/ExtUtils-ParseXS/lib/ExtUtils/ParseXS/Eval.pm
dist/ExtUtils-ParseXS/lib/ExtUtils/ParseXS/Utilities.pm
dist/ExtUtils-ParseXS/lib/ExtUtils/Typemaps.pm
dist/ExtUtils-ParseXS/lib/ExtUtils/Typemaps/Cmd.pm
dist/ExtUtils-ParseXS/lib/ExtUtils/Typemaps/InputMap.pm
dist/ExtUtils-ParseXS/lib/ExtUtils/Typemaps/OutputMap.pm
dist/ExtUtils-ParseXS/lib/ExtUtils/Typemaps/Type.pm

index 0181371..7ffdb4e 100644 (file)
@@ -1,5 +1,9 @@
 Revision history for Perl extension ExtUtils::ParseXS.
 
+3.36
+  - Make generated code avoid warnings about the "items" variable
+    being unused
+
 3.35 - Mon Jul 31 17:50:00 CET 2017
   - Fix ExtUtils-ParseXS/t/*.t that needed '.' in @INC (David Mitchell)
   - Remove impediment to compiling under C++11 (Karl Williamson)
index d629cf6..486c258 100644 (file)
@@ -11,7 +11,7 @@ use Symbol;
 
 our $VERSION;
 BEGIN {
-  $VERSION = '3.35';
+  $VERSION = '3.36';
 }
 use ExtUtils::ParseXS::Constants $VERSION;
 use ExtUtils::ParseXS::CountLines $VERSION;
@@ -519,9 +519,10 @@ EOF
 EOF
     }
     else {
-    # cv likely to be unused
+    # cv and items likely to be unused
     print Q(<<"EOF");
 #    PERL_UNUSED_VAR(cv); /* -W */
+#    PERL_UNUSED_VAR(items); /* -W */
 EOF
     }
 
@@ -871,6 +872,7 @@ EOF
 #XS_EUPXS(XS_$self->{Packid}_nil)
 #{
 #   dXSARGS;
+#   PERL_UNUSED_VAR(items);
 #   XSRETURN_EMPTY;
 #}
 #
index 2150fb8..a7f704c 100644 (file)
@@ -3,7 +3,7 @@ use strict;
 use warnings;
 use Symbol;
 
-our $VERSION = '3.35';
+our $VERSION = '3.36';
 
 =head1 NAME
 
index ad86b57..224dd74 100644 (file)
@@ -1,7 +1,7 @@
 package ExtUtils::ParseXS::CountLines;
 use strict;
 
-our $VERSION = '3.35';
+our $VERSION = '3.36';
 
 our $SECTION_END_MARKER;
 
index 6b06bf5..96ef652 100644 (file)
@@ -2,7 +2,7 @@ package ExtUtils::ParseXS::Eval;
 use strict;
 use warnings;
 
-our $VERSION = '3.35';
+our $VERSION = '3.36';
 
 =head1 NAME
 
index bc1e098..59ffa09 100644 (file)
@@ -5,7 +5,7 @@ use Exporter;
 use File::Spec;
 use ExtUtils::ParseXS::Constants ();
 
-our $VERSION = '3.35';
+our $VERSION = '3.36';
 
 our (@ISA, @EXPORT_OK);
 @ISA = qw(Exporter);
index 992d15b..d7a219e 100644 (file)
@@ -2,7 +2,7 @@ package ExtUtils::Typemaps;
 use 5.006001;
 use strict;
 use warnings;
-our $VERSION = '3.35';
+our $VERSION = '3.36';
 
 require ExtUtils::ParseXS;
 require ExtUtils::ParseXS::Constants;
index 7ff0780..bb9a969 100644 (file)
@@ -2,7 +2,7 @@ package ExtUtils::Typemaps::Cmd;
 use 5.006001;
 use strict;
 use warnings;
-our $VERSION = '3.35';
+our $VERSION = '3.36';
 
 use ExtUtils::Typemaps;
 
index b626973..723b676 100644 (file)
@@ -2,7 +2,7 @@ package ExtUtils::Typemaps::InputMap;
 use 5.006001;
 use strict;
 use warnings;
-our $VERSION = '3.35';
+our $VERSION = '3.36';
 
 =head1 NAME
 
index 8c72e5b..a8462bf 100644 (file)
@@ -2,7 +2,7 @@ package ExtUtils::Typemaps::OutputMap;
 use 5.006001;
 use strict;
 use warnings;
-our $VERSION = '3.35';
+our $VERSION = '3.36';
 
 =head1 NAME
 
index 7909bbe..a6a4a2d 100644 (file)
@@ -4,7 +4,7 @@ use strict;
 use warnings;
 require ExtUtils::Typemaps;
 
-our $VERSION = '3.35';
+our $VERSION = '3.36';
 
 =head1 NAME