sub generate_output {
for my $opname (@order) {
my ($op) = $ops{$opname};
if ($op->{UNIMPLEMENTED}) {
print "case $opname:\n";
sub generate_output {
for my $opname (@order) {
my ($op) = $ops{$opname};
if ($op->{UNIMPLEMENTED}) {
print "case $opname:\n";