[ViewVC] Diff of: cvs/Linux-AIO/lat

Comparing Linux-AIO/lat_test (file contents):
Revision 1.3 by root, Thu Aug 16 02:43:46 2001 UTC vs.
Revision 1.4 by root, Sun Jul 10 15:00:38 2005 UTC

 use File::Glob qw();
 my $START = time;
 my $SELECT;
-for(File::Glob::glob "/fs/anime/eps/*Basara/*") {
+for(File::Glob::glob "/root/anime/eps/Crest*/*") {
    my $fh;
    print "$_\n";
    open $fh, "<", $_ or die "$_: $!";
    push @fh, $fh;
 }
-Linux::AIO::min_parallel 4;
+Linux::AIO::min_parallel 2;
-$nreqs = 8;
+$nreqs = 64;
 my $lat;
 my $cnt = 1e-36;
 $|=1;
    my $fh = @fh[rand @fh];
    my $offset = int rand 75000000;
    my $data;
    my $start = time;
    #print "starting new req ($fh, $offset)\n";
-   aio_read($fh, $offset, 16*1024, $data, 0, sub {
+   aio_read ($fh, $offset, 16*1024, $data, 0, sub {
       $start = time - $start;
       $lat += $start;
       $cnt++;
       #print "io returned ($fh, $offset, $start)\n";
    });
 while(1) {
    if (Linux::AIO::nreqs < $nreqs) {
       gen_request;
    } else {
       $SELECT -= time;
+      Linux::AIO::poll_wait;
       my $r;
       select $r = $sr, undef, undef, undef;
       $SELECT += time;
    }
    Linux::AIO::poll_cb;
-   printf "\r$lat $cnt %.2f %.3f   ", $lat / $cnt, $SELECT/(time - $START);
+   printf "\r$lat $cnt %.4f %.3f   ", $lat / $cnt, $SELECT/(time - $START);
 }

-–
+Removed lines
-+
+Added lines
-<
+Changed lines
->
+Changed lines