summaryrefslogtreecommitdiff
path: root/perly.c
diff options
context:
space:
mode:
authorAndy Lester <andy@petdance.com>2005-06-09 05:05:56 -0500
committerRafael Garcia-Suarez <rgarciasuarez@gmail.com>2005-06-09 15:12:39 +0000
commita28509cc00517ad2ad1f6e022f1be6ab8f1ad18e (patch)
treed3564c6a9d7aeb6ddd157fc2aac4f3ac51471584 /perly.c
parentb83604b4e5062f93776f6a381f822df058667e23 (diff)
downloadperl-a28509cc00517ad2ad1f6e022f1be6ab8f1ad18e.tar.gz
regcomp.c and more
Message-ID: <20050609150556.GA30554@petdance.com> p4raw-id: //depot/perl@24780
Diffstat (limited to 'perly.c')
-rw-r--r--perly.c2
1 files changed, 2 insertions, 0 deletions
diff --git a/perly.c b/perly.c
index b71f95a952..6e92e27f62 100644
--- a/perly.c
+++ b/perly.c
@@ -322,6 +322,7 @@ Perl_yyparse (pTHX)
#ifdef DEBUGGING
yyns_sv = NEWSV(73, YYINITDEPTH * sizeof(char *));
SAVEFREESV(yyns_sv);
+ /* XXX This seems strange to cast char * to char ** */
yyns = (const char **) SvPVX(yyns_sv);
yynsp = yyns;
#endif
@@ -366,6 +367,7 @@ Perl_yyparse (pTHX)
yyvs = (YYSTYPE *) SvPVX(yyvs_sv);
#ifdef DEBUGGING
SvGROW(yyns_sv, yystacksize * sizeof(char *));
+ /* XXX This seems strange to cast char * to char ** */
yyns = (const char **) SvPVX(yyns_sv);
if (! yyns)
goto yyoverflowlab;