use Test::More;
use Config qw(%Config);
+BEGIN {
+ if (($Config{'extensions'} !~ /\bByteLoader\b/) ){
+ print "1..0 # Skip -- Perl configured without ByteLoader module\n";
+ exit 0;
+ }
+}
+
use B::Asmdata qw( %insn_data );
use B::Assembler qw( &assemble_fh );
use B::Disassembler qw( &disassemble_fh &get_header );
#
sub gen_type($$$){
my( $href, $descref, $text ) = @_;
- for my $odt ( keys( %opsByType ) ){
+ for my $odt ( sort( keys( %opsByType ) ) ){
my $opcode = $opsByType{$odt}->[0];
my $sel = $odt;
$sel =~ s/^GET_//;
U16 => [ 0xffff, 0 ],
pvcontents => [],
strconst => [ '""', '"another string"' ], # no NUL
-op_tr_array => [ join( ',', 0..255 ) ],
+op_tr_array => [ join( ',', 256, 0..255 ) ],
);
# Erronous operand values
NV => undef, # PUT_NV accepts anything - it shouldn't, real-ly
pvcontents => [ '"spurious arg"' ],
strconst => [ 'no quote"', '"with NUL '."\0".' char"' ], # no NUL
-op_tr_array => [ join( ',', 1..42 ) ],
+op_tr_array => undef, # op_pv_tr is no longer exactly 256 shorts
);