ViewVC Help
View File | Revision Log | Show Annotations | Download File
/cvs/Coro/eg/bench
(Generate patch)

Comparing Coro/eg/bench (file contents):
Revision 1.2 by root, Tue Jul 10 01:43:21 2001 UTC vs.
Revision 1.15 by root, Mon Dec 4 13:47:56 2006 UTC

… …
6# call with two calls of transfer in a loop. 6# call with two calls of transfer in a loop.
7 7
8use Coro; 8use Coro;
9use Benchmark; 9use Benchmark;
10 10
11sub a($) { }
12
11$a = bless {}, main::; 13$a = bless {}, main::;
12 14
13# do something similar, switch two global vars and return something
14
15sub a { 15sub b {
16 $old = $current; 16 my ($self) = shift;
17 $current = $_[0]; 17 $self->{b} = shift if @_;
18 $self->{b};
18} 19}
19 20
20$b = new Coro sub { 21$b = async {
21 # do a little unrolling... 22 # do a little unrolling...
22 while() { 23 while() {
23 $Coro::main->resume; $Coro::main->resume; $Coro::main->resume; 24 cede; cede; cede; cede; cede;
24 } 25 }
25}; 26};
26 27
27$b->resume; # the first resume is slow because it allocates all the memory 28cede;
28 29
29$main = $Coro::main; 30$main = $Coro::main;
30 31
31#*transfer = \&Coro::_transfer; 32*transfer = \&Coro::State::transfer;
32sub transfer { Coro::_transfer($_[0], $_[1]) }
33 33
34$c = Coro::_newprocess { 34sub doit0 {
35 while() { 35 while() {
36 # some unrolling here as well..
36 transfer($c, $main); transfer($c, $main); transfer($c, $main); 37 transfer($c0, $main); transfer($c0, $main);
38 transfer($c0, $main); transfer($c0, $main);
39 transfer($c0, $main); transfer($c0, $main);
40 transfer($c0, $main); transfer($c0, $main);
37 } 41 }
42}
43
44sub doit1 {
45 while() {
46 # some unrolling here as well..
47 transfer($c1, $main); transfer($c1, $main);
48 transfer($c1, $main); transfer($c1, $main);
49 transfer($c1, $main); transfer($c1, $main);
50 transfer($c1, $main); transfer($c1, $main);
51 }
52}
53
54$c0 = new Coro::State sub {
55 doit0(1,2,3,4,5,6,7,8,9);
38}; 56};
39 57
40transfer($main, $c); 58$c1 = new Coro::State sub {
59 doit1(1,2,3,4,5,6,7,8,9);
60};
41 61
62$c0->save (0);
63$c1->save (-1);
64
65transfer($main, $c0);
66transfer($main, $c1);
67
42timethese 100000, { 68timethese 1000000, {
43 method => '$a->a; $a->a; $a->a; $a->a', 69 function => 'a(5); a(6)',
44 resume => '$b->resume; $b->resume', 70 method => '$a->b(5); $a->b(6)',
71 cede => 'cede',
45 transfer => 'transfer($main, $c); transfer($main, $c)', 72 transfer0 => 'transfer($main, $c0)',
73 transfer1 => 'transfer($main, $c1)',
46}; 74};
75
76
77

Diff Legend

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