ADTaaron-thesisarm-ehast-experimentalcleanup-dtorsdeferred_resndemanglerenumforall-pointer-decayjacob/cs343-translationjenkins-sandboxnew-astnew-ast-unique-exprnew-envno_listpersistent-indexerpthread-emulationqualifiedEnumresolv-newwith_gc
Last change
on this file since 4a3334cf was
4a3334cf,
checked in by Thierry Delisle <tdelisle@…>, 8 years ago
|
Fixed tests after rename
|
-
Property mode set to
100644
|
File size:
1.7 KB
|
Line | |
---|
1 | #include <fstream> |
---|
2 | #include <coroutine> |
---|
3 | |
---|
4 | struct Fibonacci { |
---|
5 | int fn; // used for communication |
---|
6 | coroutine c; |
---|
7 | }; |
---|
8 | |
---|
9 | void ?{}(Fibonacci* this) { |
---|
10 | this->fn = 0; |
---|
11 | } |
---|
12 | |
---|
13 | coroutine* get_coroutine(Fibonacci* this) { |
---|
14 | return &this->c; |
---|
15 | } |
---|
16 | |
---|
17 | void main(Fibonacci* this) { |
---|
18 | #ifdef MORE_DEBUG |
---|
19 | sout | "Starting main of coroutine " | this | endl; |
---|
20 | sout | "Started from " | this->c.last | endl; |
---|
21 | #endif |
---|
22 | int fn1, fn2; // retained between resumes |
---|
23 | this->fn = 0; |
---|
24 | fn1 = this->fn; |
---|
25 | suspend(); // return to last resume |
---|
26 | |
---|
27 | this->fn = 1; |
---|
28 | fn2 = fn1; |
---|
29 | fn1 = this->fn; |
---|
30 | suspend(); // return to last resume |
---|
31 | |
---|
32 | for ( ;; ) { |
---|
33 | this->fn = fn1 + fn2; |
---|
34 | fn2 = fn1; |
---|
35 | fn1 = this->fn; |
---|
36 | suspend(); // return to last resume |
---|
37 | } |
---|
38 | } |
---|
39 | |
---|
40 | int next(Fibonacci* this) { |
---|
41 | resume(this); // transfer to last suspend |
---|
42 | return this->fn; |
---|
43 | } |
---|
44 | |
---|
45 | int main() { |
---|
46 | Fibonacci f1, f2; |
---|
47 | #ifdef MORE_DEBUG |
---|
48 | Fibonacci *pf1 = &f1, *pf2 = &f2; |
---|
49 | coroutine *cf1 = &f1.c, *cf2 = &f2.c; |
---|
50 | covptr_t *vf1 = vtable(pf1), *vf2 = vtable(pf2); |
---|
51 | coroutine *cv1 = get_coroutine(vf1), *cv2 = get_coroutine(vf2); |
---|
52 | Fibonacci *ov1 = (Fibonacci *)get_object(vf1), *ov2 = (Fibonacci *)get_object(vf2); |
---|
53 | |
---|
54 | sout | "User coroutines : " | pf1 | ' ' | pf2 | endl; |
---|
55 | sout | "Coroutine data : " | cf1 | ' ' | cf2 | endl; |
---|
56 | sout | "Vptr address : " | vf1 | ' ' | vf2 | endl; |
---|
57 | sout | "Vptr obj data : " | ov1 | ' ' | ov2 | endl; |
---|
58 | sout | "Vptr cor data : " | cv1 | ' ' | cv2 | endl; |
---|
59 | #endif |
---|
60 | for ( int i = 1; i <= 10; i += 1 ) { |
---|
61 | sout | next(&f1) | ' ' | next(&f2) | endl; |
---|
62 | } |
---|
63 | |
---|
64 | return 0; |
---|
65 | } |
---|
Note: See
TracBrowser
for help on using the repository browser.