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

Comparing cvsroot/Coro/eg/bench (file contents):
Revision 1.15 by root, Mon Dec 4 13:47:56 2006 UTC vs.
Revision 1.21 by root, Mon May 30 02:21:54 2011 UTC

… …
19} 19}
20 20
21$b = async { 21$b = async {
22 # do a little unrolling... 22 # do a little unrolling...
23 while() { 23 while() {
24 cede; cede; cede; cede; cede;
24 cede; cede; cede; cede; cede; 25 cede; cede; cede; cede; cede;
25 } 26 }
26}; 27};
27 28
28cede; 29cede;
… …
57 58
58$c1 = new Coro::State sub { 59$c1 = new Coro::State sub {
59 doit1(1,2,3,4,5,6,7,8,9); 60 doit1(1,2,3,4,5,6,7,8,9);
60}; 61};
61 62
62$c0->save (0); 63#$c0->save (0);
63$c1->save (-1); 64#$c1->save (-1);
64 65
65transfer($main, $c0); 66transfer($main, $c0);
66transfer($main, $c1); 67transfer($main, $c1);
67 68
69#Coro::State::enable_times 1;
70#use Coro::Debug; Coro::Debug::command "ps";#d#
71#(async {
68timethese 1000000, { 72timethese 5000000, {
69 function => 'a(5); a(6)', 73 function => 'a(5); a(6)',
70 method => '$a->b(5); $a->b(6)', 74 method => '$a->b(5); $a->b(6)',
71 cede => 'cede', 75 cede => 'cede',
72 transfer0 => 'transfer($main, $c0)', 76 transfer0 => 'transfer($main, $c0)',
73 transfer1 => 'transfer($main, $c1)', 77 transfer1 => 'transfer($main, $c1)',
74}; 78};
79#})->join;
80#use Coro::Debug; Coro::Debug::command "ps";#d#
75 81
76 82
77

Diff Legend

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