From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Sun, 31 Dec 2006 08:51:52 +0000 (-0500)
Subject: smoke signs suppression
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=714c8e96dde801b3b2e73fc130d02c78db1eb06f;p=p5sagit%2Fp5-mst-13.2.git

smoke signs suppression
Message-ID: <4597C078.4000503@iki.fi>

p4raw-id: //depot/perl@29645
---

diff --git a/iperlsys.h b/iperlsys.h
index 59b2f9a..bc99954 100644
--- a/iperlsys.h
+++ b/iperlsys.h
@@ -339,7 +339,7 @@ struct IPerlStdIOInfo
 #define PerlSIO_set_cnt(f,c)		PerlIOProc_abort()
 #endif
 #if defined(USE_STDIO_PTR) && defined(STDIO_PTR_LVALUE)
-#define PerlSIO_set_ptr(f,p)		FILE_ptr(f) = ((STDCHAR*)(p))
+#define PerlSIO_set_ptr(f,p)		(FILE_ptr(f) = (p))
 #else
 #define PerlSIO_set_ptr(f,p)		PerlIOProc_abort()
 #endif
diff --git a/perly.c b/perly.c
index 2357bb0..016c7d7 100644
--- a/perly.c
+++ b/perly.c
@@ -319,7 +319,7 @@ Perl_yyparse (pTHX)
     int yyresult;
 
     /* Lookahead token as an internal (translated) token number.  */
-    int yytoken;
+    int yytoken = 0;
 
     SV *parser_sv;		    /* SV whose PVX holds the parser object */
     register yy_parser *parser;	    /* the parser object */
diff --git a/regcomp.c b/regcomp.c
index a3558f5..4673b6e 100644
--- a/regcomp.c
+++ b/regcomp.c
@@ -5065,7 +5065,7 @@ S_reg(pTHX_ RExC_state_t *pRExC_state, I32 paren, I32 *flagp,U32 depth)
 		/*notreached*/
             { /* named and numeric backreferences */
                 I32 num;
-                char * parse_start;
+                char * parse_start = NULL;
             case '&':            /* (?&NAME) */
                 parse_start = RExC_parse - 1;
               named_recursion:
@@ -8144,7 +8144,8 @@ Perl_regprop(pTHX_ const regexp *prog, SV *sv, const regnode *o)
             I32 n;
             if (name) {
                 for ( n=0; n<SvIVX(sv_dat); n++ ) {
-                    Perl_sv_catpvf(aTHX_ sv, "%s%"IVdf, ( n ? "," : "" ), nums[n]);
+                    Perl_sv_catpvf(aTHX_ sv, "%s%"IVdf,
+				   (n ? "," : ""), (IV)nums[n]);
                 }
                 Perl_sv_catpvf(aTHX_ sv, " '%"SVf"'", *name );
             }