diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2006-12-31 03:51:52 -0500 |
|---|---|---|
| committer | H.Merijn Brand <h.m.brand@xs4all.nl> | 2006-12-31 13:58:57 +0000 |
| commit | 714c8e96dde801b3b2e73fc130d02c78db1eb06f (patch) | |
| tree | 20a62e08e525c80cca841fc422ba1f109fed7120 | |
| parent | 6c5ce11d20b3449b2088bdfd556ac149927f51e9 (diff) | |
| download | perl-714c8e96dde801b3b2e73fc130d02c78db1eb06f.tar.gz | |
smoke signs suppression
Message-ID: <4597C078.4000503@iki.fi>
p4raw-id: //depot/perl@29645
| -rw-r--r-- | iperlsys.h | 2 | ||||
| -rw-r--r-- | perly.c | 2 | ||||
| -rw-r--r-- | regcomp.c | 5 |
3 files changed, 5 insertions, 4 deletions
diff --git a/iperlsys.h b/iperlsys.h index 59b2f9a35d..bc999543f6 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 @@ -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 */ @@ -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 ); } |