Mercurial > hg > Members > anatofuz > nqp-cbc-tools
changeset 18:25be3bb0adf0 default tip
add debug tool (dump_op_to_gdbco.pl)
author | Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> |
---|---|
date | Wed, 16 Jan 2019 16:50:10 +0900 |
parents | 39ff8f558152 |
children | |
files | dump_op_to_gdbco.pl |
diffstat | 1 files changed, 13 insertions(+), 0 deletions(-) [+] |
line wrap: on
line diff
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/dump_op_to_gdbco.pl Wed Jan 16 16:50:10 2019 +0900 @@ -0,0 +1,13 @@ +use strict; +use warnings; + +use FindBin; +use lib "$FindBin::Bin/lib"; +use OPCODE2Function; + +while (<>){ + /op=(\d+)/; + my $op = $1; + + print "$.:" , OPCODE2Function->codes($op)."\n"; +}