This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
silence new compiler warning
authorDavid Mitchell <davem@iabyn.com>
Mon, 27 Oct 2014 15:24:45 +0000 (15:24 +0000)
committerDavid Mitchell <davem@iabyn.com>
Mon, 27 Oct 2014 15:24:45 +0000 (15:24 +0000)
8b9781c905d8 added a new arg to regprop(), but it's only used on debugging
builds. Also, moving the definition of regprop() in embed.fnc left a
stranded comment, so delete that too.

embed.fnc
regcomp.c

index ded066b..53f4b85 100644 (file)
--- a/embed.fnc
+++ b/embed.fnc
@@ -1219,7 +1219,6 @@ EXp       |I32|reg_numbered_buff_length|NN REGEXP * const rx|NN const SV * const sv|co
 : FIXME - is anything in re using this now?
 EXp    |SV*|reg_qr_package|NN REGEXP * const rx
 
-: FIXME - why the E?
 Anp    |void   |repeatcpy      |NN char* to|NN const char* from|I32 len|IV count
 AnpP   |char*  |rninstr        |NN const char* big|NN const char* bigend \
                                |NN const char* little|NN const char* lend
index 534922c..2e633e8 100644 (file)
--- a/regcomp.c
+++ b/regcomp.c
@@ -16503,6 +16503,7 @@ Perl_regprop(pTHX_ const regexp *prog, SV *sv, const regnode *o, const regmatch_
     PERL_UNUSED_ARG(o);
     PERL_UNUSED_ARG(prog);
     PERL_UNUSED_ARG(reginfo);
+    PERL_UNUSED_ARG(pRExC_state);
 #endif /* DEBUGGING */
 }