mirror/perl
1
0
Fork 0
mirror of https://github.com/Perl/perl5.git synced 2026-01-27 01:44:43 +00:00
Code Issues Packages Projects Releases Wiki Activity

smoke signs suppression

Browse Source 
Message-ID: <4597C078.4000503@iki.fi>

p4raw-id: //depot/perl@29645
This commit is contained in:
Jarkko Hietaniemi 2006-12-31 03:51:52 -05:00 committed by H.Merijn Brand
parent 6c5ce11d20
commit 714c8e96dd
3 changed files with 5 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
iperlsys.h
View 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

2
perly.c
View File

@ -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 */

5
regcomp.c
View File

@ -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 );
}