Mercurial > repo
view nasmbuild/nasm-2.13rc9/test/perf/token.pl @ 10714:0350bdce1ab8
<rdococ> revert
author | HackBot |
---|---|
date | Sun, 16 Apr 2017 15:59:43 +0000 |
parents | 587a0a262d22 |
children |
line wrap: on
line source
#!/usr/bin/perl # # Generate a test case for token lookup performance # @insns = qw(add sub adc sbb and or xor mov); @regs = qw(eax ebx ecx edx esp ebp esi edi); srand(0); sub pickone(@) { return $_[int(rand(scalar @_))]; } ($len) = @ARGV; $len = 1000000 unless ($len); print "\tbits 32\n"; print "\n"; for ($i = 0; $i < $len; $i++) { print "\t", pickone(@insns), " ", pickone(@regs), ",", pickone(@regs), "\n"; }