From b15aece354b2aec9d338e59acb2abc2deeebc3c0 Mon Sep 17 00:00:00 2001 From: Steve Peters Date: Fri, 20 May 2005 16:42:10 -0500 Subject: SvPVX_const - patch #2 Message-Id: <20050521024210.GA29036@mccoy.peters.homeunix.org> p4raw-id: //depot/perl@24523 --- perly.c | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'perly.c') diff --git a/perly.c b/perly.c index 6b9e376625..91f3bb9636 100644 --- a/perly.c +++ b/perly.c @@ -322,7 +322,7 @@ Perl_yyparse (pTHX) #ifdef DEBUGGING yyns_sv = NEWSV(73, YYINITDEPTH * sizeof(char *)); SAVEFREESV(yyns_sv); - yyns = (const char **) SvPVX(yyns_sv); + yyns = SvPVX_const(yyns_sv); yynsp = yyns; #endif @@ -366,7 +366,7 @@ Perl_yyparse (pTHX) yyvs = (YYSTYPE *) SvPVX(yyvs_sv); #ifdef DEBUGGING SvGROW(yyns_sv, yystacksize * sizeof(char *)); - yyns = (const char **) SvPVX(yyns_sv); + yyns = SvPVX_const(yyns_sv); if (! yyns) goto yyoverflowlab; yynsp = yyns + yysize - 1; -- cgit v1.2.1