As @embed is sorted later, the order that we add entries to it doesn't matter.
Hence add them immediately, avoiding the need to iterate over the "seen" hash.
next unless $_;
next if /^#/;
my (undef, undef, $check) = split /\t+/, $_;
- ++$syms{$check};
- }
+ next if $syms{$check}++;
- foreach (keys %syms) {
# These are all indirectly referenced by globals.c.
- push @embed, ['pR', 'OP *', $_, 'NN OP *o'];
+ push @embed, ['pR', 'OP *', $check, 'NN OP *o'];
}
}
close IN;