source: tests/concurrent/cluster.cfa @ a77496cb

ADTarm-ehast-experimentalenumforall-pointer-decayjacob/cs343-translationnew-ast-unique-exprpthread-emulationqualifiedEnum
Last change on this file since a77496cb was d168fefe, checked in by Thierry Delisle <tdelisle@…>, 4 years ago

Added test for basic cluster which was missing.

  • Property mode set to 100644
File size: 436 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        return 0;
35}
Note: See TracBrowser for help on using the repository browser.