Changes in src/tests/coroutine/fibonacci.c [71b50f36:af1ed1ad]

File:

• src/tests/coroutine/fibonacci.c (modified) (3 diffs)

src/tests/coroutine/fibonacci.c

@@ -5 +5 @@
 // file "LICENCE" distributed with Cforall.
 //
-// fibonacci.c -- 3-state finite-state machine
-
+// fibonacci.c --
 //
 // Author           : Thierry Delisle
 // Created On       : Thu Jun  8 07:29:37 2017
 // Last Modified By : Peter A. Buhr
-// Last Modified On : Fri Apr 27 08:55:31 2018
-// Update Count     : 19
+// Last Modified On : Thu Mar 22 22:45:44 2018
+// Update Count     : 15
 //
 
@@ -20 +19 @@
 coroutine Fibonacci { int fn; };                                                // used for communication
 
-void main( Fibonacci & fib ) with( fib ) {                              // called on first resume
+void ?{}( Fibonacci & fib ) with( fib ) { fn = 0; }
+
+// main automatically called on first resume
+void main( Fibonacci & fib ) with( fib ) {
         int fn1, fn2;                                                                           // retained between resumes
         fn = 0;  fn1 = fn;                                                                      // 1st case
@@ -27 +29 @@
         suspend();                                                                                      // restart last resume
         for ( ;; ) {
-                fn = fn1 + fn2;  fn2 = fn1;  fn1 = fn;                  // general case
+                fn = fn1 + fn2; fn2 = fn1;  fn1 = fn;                   // general case
                 suspend();                                                                              // restart last resume
         } // for