Change 13008 by jhi@alpha on 2001/11/14 22:16:06
Quieten pgcc 2.91.66 worries.
Affected files ...
.... //depot/perl/gv.c#159 edit
.... //depot/perl/pp_ctl.c#296 edit
.... //depot/perl/utf8.c#113 edit
Differences ...
==== //depot/perl/gv.c#159 (text) ====
Index: perl/gv.c
--- perl/gv.c.~1~ Wed Nov 14 15:30:06 2001
+++ perl/gv.c Wed Nov 14 15:30:06 2001
@@ -1297,7 +1297,7 @@
if (GvNAMELEN(CvGV(cv)) == 3 && strEQ(GvNAME(CvGV(cv)), "nil")
&& strEQ(HvNAME(GvSTASH(CvGV(cv))), "overload")) {
/* GvSV contains the name of the method. */
- GV *ngv;
+ GV *ngv = Nullgv;
DEBUG_o( Perl_deb(aTHX_ "Resolving method `%.256s' for overloaded `%s'
in package `%.256s'\n",
SvPV_nolen(GvSV(gv)), cp, HvNAME(stash)) );
==== //depot/perl/pp_ctl.c#296 (text) ====
Index: perl/pp_ctl.c
--- perl/pp_ctl.c.~1~ Wed Nov 14 15:30:06 2001
+++ perl/pp_ctl.c Wed Nov 14 15:30:06 2001
@@ -2139,7 +2139,7 @@
STATIC OP *
S_dofindlabel(pTHX_ OP *o, char *label, OP **opstack, OP **oplimit)
{
- OP *kid;
+ OP *kid = Nullop;
OP **ops = opstack;
static char too_deep[] = "Target of goto is too deeply nested";
==== //depot/perl/utf8.c#113 (text) ====
Index: perl/utf8.c
--- perl/utf8.c.~1~ Wed Nov 14 15:30:06 2001
+++ perl/utf8.c Wed Nov 14 15:30:06 2001
@@ -1344,7 +1344,7 @@
U32 off;
STRLEN slen;
STRLEN needents;
- U8 *tmps;
+ U8 *tmps = NULL;
U32 bit;
SV *retval;
U8 tmputf8[2];
End of Patch.
