Mercurial > hg > Members > anatofuz > nqp-cbc-tools
view name2opcode.pl @ 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 | 8192d3609350 |
children |
line wrap: on
line source
use strict; use warnings; use FindBin; use lib "$FindBin::Bin/lib"; use OPCODE2Function; my $input = shift or die 'use input cur_op'; chomp $input; my $ref = OPCODE2Function->name2bitecode($input); if (ref($ref ) eq "ARRAY"){ map { print "$_\n";} @$ref; } else { print "$ref\n"; }