asmdata.t revision 7c478bd95313f5f23a4c958a745db2134aa03244
#!./perl -Tw
BEGIN {
chdir 't';
}
# check we got something.
# pick an op that's not likely to go away in the future
# pick one at random to test with.
my $data = $insn_data{$opname};
# I'm going to assume that op types will all be named /OP$/.
# If this changes in the future, change this test.
# comment in bytecode.pl says "Nullsv *must come first so that the
# condition ($$sv == 0) can continue to be used to test (sv == Nullsv)."
# other than that, we can't really say much more about @specialsv_name
# than it has to contain strings (on the off chance &PL_sv_undef gets
# flubbed)