| … | … | ||
|---|---|---|---|
| 746 | eval "use integer; sub { $insn }" or die "$insn: $@" | 746 | eval "use integer; sub { $insn }" or die "$insn: $@" |
| 747 | })->(); | 747 | })->(); |
| 748 | 748 | ||
| 749 | ++$CLK; | 749 | ++$CLK; |
| 750 | 750 | ||
| 751 | # things we do from time too time only | 751 | # things we do from time to time only |
| 752 | unless ($CLK & 0xf) { | 752 | unless ($CLK & 0xf) { |
| 753 | # do I/O | 753 | # do I/O |
| 754 | 754 | ||
| 755 | unless ($CLK & 0xfff) { | 755 | unless ($CLK & 0xfff) { |
| 756 | 756 |
| – | Removed lines |
| + | Added lines |
| < | Changed lines |
| > | Changed lines |