test/perf/token.pl

   1 #!/usr/bin/perl
   2 #
   3 # Generate a test case for token lookup performance
   4 #
   5
   6 @insns = qw(add sub adc sbb and or xor mov);
   7 @regs  = qw(eax ebx ecx edx esp ebp esi edi);
   8
   9 srand(0);
  10 sub pickone(@) {
  11     return $_[int(rand(scalar @_))];
  12 }
  13
  14 ($len) = @ARGV;
  15 $len = 1000000 unless ($len);
  16
  17 print "\tbits 32\n";
  18 print "\n";
  19
  20 for ($i = 0; $i < $len; $i++) {
  21     print "\t", pickone(@insns), " ",
  22         pickone(@regs), ",", pickone(@regs), "\n";
  23 }