Change 15265 by jhi@alpha on 2002/03/16 18:51:45

        Better place to initialize (IRIX cc noticed that
        the many "goto defchars" bypass the initialization)

Affected files ...

.... //depot/perl/regcomp.c#294 edit

Differences ...

==== //depot/perl/regcomp.c#294 (text) ====
Index: perl/regcomp.c
--- perl/regcomp.c.~1~  Sat Mar 16 12:00:06 2002
+++ perl/regcomp.c      Sat Mar 16 12:00:06 2002
@@ -3024,7 +3024,7 @@
 
     default: {
            register STRLEN len;
-           register UV ender = 0;
+           register UV ender;
            register char *p;
            char *oldp, *s;
            STRLEN numlen;
@@ -3036,6 +3036,7 @@
            RExC_parse++;
 
        defchar:
+           ender = 0;
            ret = reg_node(pRExC_state, FOLD
                          ? (LOC ? EXACTFL : EXACTF)
                          : EXACT);
End of Patch.

Reply via email to