File: token.pl

package info (click to toggle)
chromium 138.0.7204.183-1
  • links: PTS, VCS
  • area: main
  • in suites: trixie
  • size: 6,071,908 kB
  • sloc: cpp: 34,937,088; ansic: 7,176,967; javascript: 4,110,704; python: 1,419,953; asm: 946,768; xml: 739,971; pascal: 187,324; sh: 89,623; perl: 88,663; objc: 79,944; sql: 50,304; cs: 41,786; fortran: 24,137; makefile: 21,806; php: 13,980; tcl: 13,166; yacc: 8,925; ruby: 7,485; awk: 3,720; lisp: 3,096; lex: 1,327; ada: 727; jsp: 228; sed: 36
file content (23 lines) | stat: -rwxr-xr-x 436 bytes parent folder | download | duplicates (20) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
 
#!/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";
}