source: tests/concurrent/cluster.cfa @ ab2b352

ADTast-experimental
Last change on this file since ab2b352 was 66812dd, checked in by Peter A. Buhr <pabuhr@…>, 4 years ago

convert tests to always print output (no empty .expect files)

  • 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.