Mercurial > hg > Members > anatofuz > nqp-cbc-tools

changeset 7:b9a157e11952

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
print opcode function
author Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
date Mon, 05 Nov 2018 16:40:06 +0900
parents f873ae65aab1
children 3525971010e4
files logs2.pl
diffstat 1 files changed, 6 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- a/logs2.pl	Mon Nov 05 16:36:31 2018 +0900
+++ b/logs2.pl	Mon Nov 05 16:40:06 2018 +0900
@@ -1,6 +1,9 @@
 use strict;
 use warnings;
 
+use lib 'lib';
+use OPCODE2Function;
+
 my $originlog = shift or die "use originlog cbclog";
 my $cbclog = shift or die "use originlog cbclog";
 
@@ -28,9 +31,11 @@
   if ($c_line != $orig_line){
 	  print "*";
 	  print "$orig_line : $c_line\n";
+      print OPCODE2Function->codes($orig_line) ,":", OPCODE2Function->codes($c_line) ,"\n";
 	  exit 0;
   }
-  
+
   print "$orig_line : $c_line\n";
+  print OPCODE2Function->codes($orig_line) ,":", OPCODE2Function->codes($c_line) ,"\n";
 
 }