Changes in src/tests/coroutine.c [e04b636:c3acb841]

File:

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

src/tests/coroutine.c

@@ -2 +2 @@
 #include <coroutine>
 
-coroutine Fibonacci {
+struct Fibonacci {
       int fn; // used for communication
+      coroutine_desc c;
 };
 
@@ -10 +11 @@
 }
 
+coroutine_desc* get_coroutine(Fibonacci* this) {
+      return &this->c;
+}
+
 void main(Fibonacci* this) {
+#ifdef MORE_DEBUG
+      sout | "Starting main of coroutine " | this | endl;
+      sout | "Started from " | this->c.last | endl;
+#endif
       int fn1, fn2;             // retained between resumes
       this->fn = 0;
@@ -36 +45 @@
 int main() {
       Fibonacci f1, f2;
+#ifdef MORE_DEBUG      
+      Fibonacci *pf1 = &f1, *pf2 = &f2;
+      coroutine_desc *cf1 = &f1.c, *cf2 = &f2.c;
+      covptr_t  *vf1 = vtable(pf1), *vf2 = vtable(pf2);
+      coroutine_desc *cv1 = get_coroutine(vf1), *cv2 = get_coroutine(vf2);
+      Fibonacci *ov1 = (Fibonacci *)get_object(vf1), *ov2 = (Fibonacci *)get_object(vf2);
+
+      sout | "User coroutines : " | pf1 | ' ' | pf2 | endl;
+      sout | "Coroutine data  : " | cf1 | ' ' | cf2 | endl;
+      sout | "Vptr address    : " | vf1 | ' ' | vf2 | endl;
+      sout | "Vptr obj data   : " | ov1 | ' ' | ov2 | endl;
+      sout | "Vptr cor data   : " | cv1 | ' ' | cv2 | endl;
+#endif
       for ( int i = 1; i <= 10; i += 1 ) {
             sout | next(&f1) | ' ' | next(&f2) | endl;