From: Rafael Garcia-Suarez <rgs@consttype.org>
Date: Wed, 16 Dec 2009 09:20:27 +0000 (+0100)
Subject: Fix casting warnings
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=ec8ec19fe1bd16139db7f9b26fc5d09fcd11a064;p=p5sagit%2Fp5-mst-13.2.git

Fix casting warnings
---

diff --git a/perly.c b/perly.c
index ac87b8e..0709307 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>";