… | … | ||
---|---|---|---|
750 | 750 | ||
751 | $insn .= "$op;\n"; | 751 | $insn .= "$op;\n"; |
752 | } | 752 | } |
753 | 753 | ||
754 | 754 | ||
755 | $insn .= "$pc"; | 755 | $insn .= $pc; |
756 | $insn =~ s/\x00.*$//s; | 756 | $insn =~ s/\x00.*$//s; |
757 | 757 | ||
758 | eval "use integer; sub { $insn }" or die "$insn: $@" | 758 | eval "use integer; sub { $insn }" or die "$insn: $@" |
759 | })->(); | 759 | })->(); |
760 | 760 |
– | Removed lines |
+ | Added lines |
< | Changed lines |
> | Changed lines |