[ViewVC] Diff of: cvs/cvsroot/Coro/eg/bench

Comparing cvsroot/Coro/eg/bench (file contents):
Revision 1.4 by root, Tue Jul 17 00:24:15 2001 UTC vs.
Revision 1.7 by root, Sat Jul 21 19:53:29 2001 UTC

 use Coro;
 use Benchmark;
 $a = bless {}, main::;
-sub a {
+sub b {
-   $n++; # do something to taint the benchmark results ;)
+   my ($self) = shift;
+   $self->{b} = shift if @_;
+   $self->{b};
 }
-$|=1;
 $b = async {
    # do a little unrolling...
    while() {
       yield; yield; yield; yield; yield;
 $main = $Coro::main;
 *transfer = \&Coro::State::transfer;
-$c = Coro::State::_newprocess [sub {
+sub doit {
    while() {
+      # some unrolling here as well..
+      transfer($c, $main); transfer($c, $main);
       transfer($c, $main); transfer($c, $main);
       transfer($c, $main); transfer($c, $main);
    }
+}
+$c = Coro::State::_newprocess [sub {
+   doit(1,2,3,4,5,6,7,8,9);
 }];
 transfer($main, $c);
 timethese 100000, {
-   method   => '$a->a; $a->a; $a->a; $a->a',
+   empty    => '&a; &a',
-   resume   => 'yield; yield',
+   method   => '$a->b(5); $a->b(6)',
+   yield    => 'yield',
-   transfer => 'transfer($main, $c); transfer($main, $c)',
+   transfer => 'transfer($main, $c)',
 };

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