summaryrefslogtreecommitdiff
path: root/perly.c
diff options
context:
space:
mode:
authorRafael Garcia-Suarez <rgs@consttype.org>2009-12-16 10:20:27 +0100
committerRafael Garcia-Suarez <rgs@consttype.org>2009-12-16 10:20:27 +0100
commitec8ec19fe1bd16139db7f9b26fc5d09fcd11a064 (patch)
tree7180ca167327ba1bcc03feaca7855dbd60042102 /perly.c
parent3b9d46a33410a9102d17c3c7c166c3b2dbd93060 (diff)
downloadperl-ec8ec19fe1bd16139db7f9b26fc5d09fcd11a064.tar.gz
Fix casting warnings
Diffstat (limited to 'perly.c')
-rw-r--r--perly.c6
1 files changed, 3 insertions, 3 deletions
diff --git a/perly.c b/perly.c
index ac87b8e02e..07093071e6 100644
--- a/perly.c
+++ b/perly.c
@@ -456,7 +456,7 @@ Perl_yyparse (pTHX)
YYPUSHSTACK;
ps->state = yyn;
ps->val = parser->yylval;
- ps->compcv = SvREFCNT_inc(PL_compcv);
+ ps->compcv = (CV*)SvREFCNT_inc(PL_compcv);
ps->savestack_ix = PL_savestack_ix;
#ifdef DEBUGGING
ps->name = (const char *)(yytname[yytoken]);
@@ -555,7 +555,7 @@ Perl_yyparse (pTHX)
number reduced by. */
ps->val = yyval;
- ps->compcv = SvREFCNT_inc(PL_compcv);
+ ps->compcv = (CV*)SvREFCNT_inc(PL_compcv);
ps->savestack_ix = PL_savestack_ix;
#ifdef DEBUGGING
ps->name = (const char *)(yytname [yyr1[yyn]]);
@@ -670,7 +670,7 @@ Perl_yyparse (pTHX)
YYPUSHSTACK;
ps->state = yyn;
ps->val = parser->yylval;
- ps->compcv = SvREFCNT_inc(PL_compcv);
+ ps->compcv = (CV*)SvREFCNT_inc(PL_compcv);
ps->savestack_ix = PL_savestack_ix;
#ifdef DEBUGGING
ps->name ="<err>";