mirror of
https://github.com/netwide-assembler/nasm.git
synced 2024-12-21 09:19:31 +08:00
19 lines
313 B
Perl
19 lines
313 B
Perl
|
#!/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";
|
||
|
|
}
|
||
|
|
}
|