--- cvsroot/Coro/eg/bench	2001/07/23 02:14:19	1.8
+++ cvsroot/Coro/eg/bench	2001/08/11 19:59:19	1.9
@@ -34,18 +34,18 @@
 sub doit0 {
    while() {
       # some unrolling here as well..
-      transfer($c0, $main); transfer($c0, $main);
-      transfer($c0, $main); transfer($c0, $main);
-      transfer($c0, $main); transfer($c0, $main);
+      transfer($c0, $main,  0); transfer($c0, $main,  0);
+      transfer($c0, $main,  0); transfer($c0, $main,  0);
+      transfer($c0, $main,  0); transfer($c0, $main,  0);
    }
 }
 
 sub doit1 {
    while() {
       # some unrolling here as well..
-      transfer($c1, $main); transfer($c1, $main);
-      transfer($c1, $main); transfer($c1, $main);
-      transfer($c1, $main); transfer($c1, $main);
+      transfer($c1, $main, -1); transfer($c1, $main, -1);
+      transfer($c1, $main, -1); transfer($c1, $main, -1);
+      transfer($c1, $main, -1); transfer($c1, $main, -1);
    }
 }
 
@@ -57,14 +57,14 @@
    doit1(1,2,3,4,5,6,7,8,9);
 }];
 
-transfer($main, $c0);
-transfer($main, $c1);
+transfer($main, $c0, 0);
+transfer($main, $c1, -1);
 
 timethese 100000, {
    empty    => '&a; &a',
    method   => '$a->b(5); $a->b(6)',
    cede     => 'cede',
    transfer0=> 'transfer($main, $c0, 0)',
-   transfer1=> 'transfer($main, $c1)',
+   transfer1=> 'transfer($main, $c1, -1)',
 };