This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
smoke signs suppression
authorJarkko Hietaniemi <jhi@iki.fi>
Sun, 31 Dec 2006 08:51:52 +0000 (03:51 -0500)
committerH.Merijn Brand <h.m.brand@xs4all.nl>
Sun, 31 Dec 2006 13:58:57 +0000 (13:58 +0000)
Message-ID: <4597C078.4000503@iki.fi>

p4raw-id: //depot/perl@29645

iperlsys.h
perly.c
regcomp.c

index 59b2f9a..bc99954 100644 (file)
@@ -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 (file)
--- 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 */
index a3558f5..4673b6e 100644 (file)
--- 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 );
             }