diff options
author | Steve Hay <SteveHay@planit.com> | 2006-01-18 14:23:09 +0000 |
---|---|---|
committer | Steve Hay <SteveHay@planit.com> | 2006-01-18 14:23:09 +0000 |
commit | 561b68a973f8a5d10c61d6a02c02f3002a0a63ba (patch) | |
tree | 84518a9894ce4759b487340358880b3081926f90 /perly.c | |
parent | 2f397494d2e5c4344bda444a704ca9e81d71a61b (diff) | |
download | perl-561b68a973f8a5d10c61d6a02c02f3002a0a63ba.tar.gz |
Change all NEWSV() to newSV() in the core and non-dual-lived modules.
Keep NEWSV() itself for backwards-compatibility outside of the core,
but don't advertise it any more.
(cf. change #25101).
p4raw-link: @25101 on //depot/perl: a02a5408b2f199007c4dcb74559cc79066307ada
p4raw-id: //depot/perl@26901
Diffstat (limited to 'perly.c')
-rw-r--r-- | perly.c | 6 |
1 files changed, 3 insertions, 3 deletions
@@ -311,8 +311,8 @@ Perl_yyparse (pTHX) PL_yycharp = &yychar; /* so PL_yyerror() can access it */ PL_yylvalp = &yylval; /* so various functions in toke.c can access it */ - yyss_sv = NEWSV(73, YYINITDEPTH * sizeof(short)); - yyvs_sv = NEWSV(73, YYINITDEPTH * sizeof(YYSTYPE)); + yyss_sv = newSV(YYINITDEPTH * sizeof(short)); + yyvs_sv = newSV(YYINITDEPTH * sizeof(YYSTYPE)); SAVEFREESV(yyss_sv); SAVEFREESV(yyvs_sv); yyss = (short *) SvPVX(yyss_sv); @@ -321,7 +321,7 @@ Perl_yyparse (pTHX) yyssp = yyss; yyvsp = yyvs; #ifdef DEBUGGING - yyns_sv = NEWSV(73, YYINITDEPTH * sizeof(char *)); + yyns_sv = newSV(YYINITDEPTH * sizeof(char *)); SAVEFREESV(yyns_sv); /* XXX This seems strange to cast char * to char ** */ yyns = (const char **) SvPVX(yyns_sv); |