Mercurial > mplayer.hg
view TOOLS/perlbench.pl @ 11376:70b1673fe399
proper fix for 'some chipsets can't handle buffers > 128kB', vo_zr used
to ignore information about the _actual_ buffer size returned by the
kernel and continued to use the requested buffer size (the old fix was
to request smaller buffers, but not ignoring information about the
actual buffer size is way better)
author | rik |
---|---|
date | Mon, 03 Nov 2003 17:38:50 +0000 |
parents | 5cbbf47cae1e |
children |
line wrap: on
line source
#!/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";