Mercurial > repo
view nasmbuild/nasm-2.13rc9/test/perf/macro.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 macro 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 "%define m$i $i\n"; for ($j = 0; $j < 8; $j++) { print "\tdd m", int(rand($i+1)), "\n"; } }