Mercurial > mplayer.hg
view TOOLS/perlbench.pl @ 19619:a83e5b8d2e63
Patch from Karolina Lindqvist <karolina.lindqvist@kramnet.se>
"There is a bug in the zoran -vo zr driver, that makes the output garbled
always. It also probably affects the zrmjpeg filter. This patch takes care of
the problem."
Patch tested and OK. And 10l to me, because this bug probably has existed for a
looong time.
author | rik |
---|---|
date | Fri, 01 Sep 2006 18:49:40 +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";