# HG changeset patch
# User Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
# Date 1539057887 -32400
# Node ID 30098d746672465ab80c47c2041cef169f591aeb
# Parent  6c4ba0dc43e862c2df3c4a1c3c8d121a4e2c5436
modofied argument

diff -r 6c4ba0dc43e8 -r 30098d746672 cbctools/change_OP_to_cbc.pl
--- a/cbctools/change_OP_to_cbc.pl	Fri Oct 05 21:10:59 2018 +0900
+++ b/cbctools/change_OP_to_cbc.pl	Tue Oct 09 13:04:47 2018 +0900
@@ -27,7 +27,7 @@
         my $opcode = $1;
         $none_left_blanket = $cbc_lines[$i] =~ /{/ ? 0 : 1;
         # transrate OP(HOGE) to __code hoge(INTERP *i){
-        $cbc_lines[$i]  = $indent. "__code ".$opcode."(INTERP *i){\n";
+        $cbc_lines[$i]  = $indent. "__code ".$opcode."(INTERP i){\n";
         push @rewritec,$cbc_lines[$i];
 
         # 次の行に移動