#!/usr/bin/perl -w

use strict;
use Opcode qw(opset opmask_add opset_to_ops invert_opset);

my $code = shift;
defined $code or 
	die "Usage: $0 <code> <permitted_opcode> <permitted_opcode> ...\n";
# skip some masks from prev operations
my %skip;
$skip{$_}++ for @ARGV;

my @all = opset_to_ops(invert_opset(opset()));

# Try all opcodes, print error if eval failed
foreach ( @all ) {
	$skip{$_} and next;
	opmask_add(opset($_));
	eval $code and next;
	print "Eval failed on opcode: $_ with error: $@\n";
	exit 1;
};

print "Eval OK\n";