source: tests/concurrency/cluster.cfa @ de3a579

Last change on this file since de3a579 was c26bea2a, checked in by Peter A. Buhr <pabuhr@…>, 17 months ago

first attempt at renaming directory tests/concurrent to tests/concurrency to harmonize with other concurrency directory names

  • Property mode set to 100644
File size: 476 bytes
Line 
1#include <kernel.hfa>
2#include <thread.hfa>
3
4static cluster * the_cluster;
5
6thread MyThread {};
7void ?{}( MyThread & this ) {
8        ((thread&)this){ *the_cluster };
9}
10
11void main( MyThread & this ) {
12        for(50) {
13                yield();
14        }
15}
16
17struct MyProc {
18        processor self;
19};
20
21void ?{}( MyProc & this ) {
22        (this.self){ *the_cluster };
23}
24
25int main() {
26        cluster cl;
27        the_cluster = &cl;
28        {
29                MyProc procs[4];
30                {
31                        MyThread threads[17];
32                }
33        }
34        printf( "done\n" );                             // non-empty .expect file
35}
Note: See TracBrowser for help on using the repository browser.