changeset 10:30098d746672

modofied argument
author Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
date Tue, 09 Oct 2018 13:04:47 +0900
parents 6c4ba0dc43e8
children e08e6dca633f
files cbctools/change_OP_to_cbc.pl
diffstat 1 files changed, 1 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- 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];
 
         # 次の行に移動