diff options
author | arpi_esp <arpi_esp@b3059339-0415-0410-9bf9-f77b7e298cf2> | 2001-04-22 16:09:23 +0000 |
---|---|---|
committer | arpi_esp <arpi_esp@b3059339-0415-0410-9bf9-f77b7e298cf2> | 2001-04-22 16:09:23 +0000 |
commit | d30168feb2fd0589a36f17f30769b03b2d265f05 (patch) | |
tree | 665a14ae3d7e095a8bb230a0990693446ade267a /TOOLS | |
parent | 37a482e2b7e0fdb3f7d99caa7b8faefe53a5e210 (diff) | |
download | mpv-d30168feb2fd0589a36f17f30769b03b2d265f05.tar.bz2 mpv-d30168feb2fd0589a36f17f30769b03b2d265f05.tar.xz |
fastmemcpy benchmark by Felix Buenemann
git-svn-id: svn://svn.mplayerhq.hu/mplayer/trunk@577 b3059339-0415-0410-9bf9-f77b7e298cf2
Diffstat (limited to 'TOOLS')
-rwxr-xr-x | TOOLS/perlbench.pl | 32 |
1 files changed, 32 insertions, 0 deletions
diff --git a/TOOLS/perlbench.pl b/TOOLS/perlbench.pl new file mode 100755 index 0000000000..7b285d9f07 --- /dev/null +++ b/TOOLS/perlbench.pl @@ -0,0 +1,32 @@ +#!/usr/bin/perl -w +use strict; +use constant CMD => "./fastmem2-k7"; + +sub dobench { + my $i; + my ($runs, $sleep, $command) = @_; + for($i = 0; $i < $runs; $i++) { + sleep $sleep; + system $command; + } +} + +print "Single run of sse bench with 1sec sleep:\n"; +&dobench(1,1,CMD); +print "Sleeping 10seconds before starting next bench!\n"; +sleep 10; +print "10 runs of sse bench with 0sec sleep:\n"; +&dobench(10,0,CMD); +print "Sleeping 10seconds before starting next bench!\n"; +sleep 10; +print "10 runs of sse bench with 1sec sleep:\n"; +&dobench(10,1,CMD); +print "Sleeping 10seconds before starting next bench!\n"; +sleep 10; +print "10 runs of sse bench with 2sec sleep:\n"; +&dobench(10,2,CMD); +print "Sleeping 10seconds before starting next bench!\n"; +sleep 10; +print "10 runs of sse bench with 3sec sleep:\n"; +&dobench(10,3,CMD); +print "Bench finished!\n"; |