tange/tangetools
1
0
Fork 0
Code Issues Pull requests Actions Packages Projects Releases Wiki Activity

burncpu: Print . for each round.

Browse source
This commit is contained in:
Ole Tange 2019-04-30 21:08:59 +02:00
parent 194996be30
commit 7b93704129
1 changed files with 9 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
burncpu/burncpu
View file

@ -193,17 +193,21 @@ $opt::rounds ||= 2**31;
$opt::threads = multiply_binary_prefix($opt::threads);
$opt::threads ||= 1;
$| = 1;
while(--$opt::threads > 0 and fork()) {}
my $starttime = time;
while(time <= $starttime+$opt::timeout
and
++$round <= $opt::rounds) {
$opt::verbose and print ".";
if($opt::cache) {
# force cache misses (use around 100 MB)
# Largest cache = 15 MB/core (60 MB shared between 4 cores)
# https://ark.intel.com/content/www/us/en/ark/products/93791/intel-xeon-processor-e7-8893-v4-60m-cache-3-20-ghz.html
# force cache misses (use around 130 MB)
# do 10 times fewer rounds
for(my $t = 0; $t < 1000000; $t++){
$cache{$t%1000000} = $cache{int(rand*1000000)%1000000}++;
$cache{$t%1000000} += $cache{int(rand*1000000)%1000000}++;
}
} else {
for(my $t = 0; $t < 10000000; $t++){}