fix cop_list warning: initialization from incompatible pointer type

git-svn-id: http://perl-compiler.googlecode.com/svn/trunk@35 ed534f1a-1453-0410-ab30-dfc593a8b23c
rurban · Nov 13, 2009 · 266b043 · 266b043
1 parent 8cdde7c
commit 266b043
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/lib/B/C.pm b/lib/B/C.pm
@@ -9,7 +9,7 @@
 
 package B::C;
 
-our $VERSION = '1.04_21';
+our $VERSION = '1.04_22';
 
 package B::C::Section;
 
@@ -457,7 +457,7 @@ sub B::OP::save {
       my $ix = $copsect->index;
       $init->add(sprintf("cop_list[$ix].op_ppaddr = %s;", $op->ppaddr))
         unless $optimize_ppaddr;
-      savesym($op, "&cop_list[$ix]");
+      savesym($op, "(OP*)&cop_list[$ix]");
     } else {
       $opsect->comment($opsect_common);
       $opsect->add($op->_save_common);