In perl.git, the branch blead has been updated

<http://perl5.git.perl.org/perl.git/commitdiff/1059e5b21f7e16d18b3df847d2e5d3f343f44f1c?hp=863b3f1b6dc7598805e0c7a43c3913781f6bc7a1>

- Log -----------------------------------------------------------------
commit 1059e5b21f7e16d18b3df847d2e5d3f343f44f1c
Author: Karl Williamson <[email protected]>
Date:   Fri Dec 18 22:59:35 2015 -0700

    regcomp.c: Silence uninit compiler warning
    
    This shouldn't actually happen, and g++ under -O0 didn't flag it, but
    gcc under -O2 does, so initialize to an illegal value

M       regcomp.c

commit 347c22ab6557c6c5af3bfe60c86fe8b86472a5e1
Author: Karl Williamson <[email protected]>
Date:   Fri Dec 18 22:51:23 2015 -0700

    regcomp.c: Remove outdated comments
    
    These were invalidated by commit
    709be747a32edc503b4645d9c5396bd4b40100d2

M       regcomp.c
-----------------------------------------------------------------------

Summary of changes:
 regcomp.c | 9 ++-------
 1 file changed, 2 insertions(+), 7 deletions(-)

diff --git a/regcomp.c b/regcomp.c
index f48a8fa..7a028fd 100644
--- a/regcomp.c
+++ b/regcomp.c
@@ -16127,17 +16127,12 @@ S_regclass(pTHX_ RExC_state_t *pRExC_state, I32 
*flagp, U32 depth,
      * adjacent such nodes.  And if the class is equivalent to things like /./,
      * expensive run-time swashes can be avoided.  Now that we have more
      * complete information, we can find things necessarily missed by the
-     * earlier code.  I (khw) did some benchmarks and found essentially no
-     * speed difference between using a POSIXA node versus an ANYOF node, so
-     * there is no reason to optimize, for example [A-Za-z0-9_] into
-     * [[:word:]]/a (although if we did it in the sizing pass it would save
-     * space).  _invlistEQ() could be used if one ever wanted to do something
-     * like this at this point in the code */
+     * earlier code. */
 
     if (optimizable && cp_list && ! invert) {
         UV start, end;
         U8 op = END;  /* The optimzation node-type */
-        int posix_class;
+        int posix_class = -1;   /* Illegal value */
         const char * cur_parse= RExC_parse;
 
         invlist_iterinit(cp_list);

--
Perl5 Master Repository

Reply via email to