File: label.pl

package info (click to toggle)
nasm 2.14-1
  • links: PTS, VCS
  • area: main
  • in suites: buster
  • size: 9,364 kB
  • sloc: ansic: 91,190; asm: 21,678; perl: 5,874; makefile: 546; sh: 313; python: 78; sed: 11
file content (18 lines) | stat: -rwxr-xr-x 313 bytes parent folder | download | duplicates (19) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 
#!/usr/bin/perl
#
# Generate a test case for label lookup performance
#

($len) = @ARGV;
$len = 100000 unless ($len);

print "\tbits 32\n";
print "\tsection .data\n";
print "\n";

for ($i = 0; $i < $len; $i++) {
    print "l$i:\n";
    for ($j = 0; $j < 8; $j++) {
	print "\tdd l", int(rand($i+1)), "\n";
    }
}