Change 15255 by jhi@alpha on 2002/03/16 16:23:07
HP-UX gcc 3 warnings found by Sarathy.
Affected files ...
.... //depot/perl/regcomp.c#293 edit
.... //depot/perl/sv.c#527 edit
Differences ...
==== //depot/perl/regcomp.c#293 (text) ====
Index: perl/regcomp.c
--- perl/regcomp.c.~1~ Sat Mar 16 09:30:06 2002
+++ perl/regcomp.c Sat Mar 16 09:30:06 2002
@@ -3024,7 +3024,7 @@
default: {
register STRLEN len;
- register UV ender;
+ register UV ender = 0;
register char *p;
char *oldp, *s;
STRLEN numlen;
==== //depot/perl/sv.c#527 (text) ====
Index: perl/sv.c
--- perl/sv.c.~1~ Sat Mar 16 09:30:06 2002
+++ perl/sv.c Sat Mar 16 09:30:06 2002
@@ -1226,13 +1226,13 @@
bool
Perl_sv_upgrade(pTHX_ register SV *sv, U32 mt)
{
- char* pv;
- U32 cur;
- U32 len;
- IV iv;
- NV nv;
- MAGIC* magic;
- HV* stash;
+ char* pv = NULL;
+ U32 cur = 0;
+ U32 len = 0;
+ IV iv = 0;
+ NV nv = 0.0;
+ MAGIC* magic = NULL;
+ HV* stash = Nullhv;
if (mt != SVt_PV && SvREADONLY(sv) && SvFAKE(sv)) {
sv_force_normal(sv);
@@ -4780,7 +4780,7 @@
SV **svp;
I32 i;
SV *tsv = SvRV(sv);
- MAGIC *mg;
+ MAGIC *mg = NULL;
if (!SvMAGICAL(tsv) || !(mg = mg_find(tsv, PERL_MAGIC_backref)))
Perl_croak(aTHX_ "panic: del_backref");
av = (AV *)mg->mg_obj;
@@ -6680,8 +6680,8 @@
CV *
Perl_sv_2cv(pTHX_ SV *sv, HV **st, GV **gvp, I32 lref)
{
- GV *gv;
- CV *cv;
+ GV *gv = Nullgv;
+ CV *cv = Nullcv;
STRLEN n_a;
if (!sv)
@@ -6926,7 +6926,7 @@
char *
Perl_sv_pvn_force_flags(pTHX_ SV *sv, STRLEN *lp, I32 flags)
{
- char *s;
+ char *s = NULL;
if (SvTHINKFIRST(sv) && !SvROK(sv))
sv_force_normal(sv);
End of Patch.
