source: tests/concurrency/monitor.cfa @ 60f4919

Last change on this file since 60f4919 was c26bea2a, checked in by Peter A. Buhr <pabuhr@…>, 18 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: 659 bytes
Line 
1#include <fstream.hfa>
2#include <kernel.hfa>
3#include <monitor.hfa>
4#include <thread.hfa>
5
6monitor global_t {
7        int value;
8};
9
10void ?{}(global_t & this) {
11        this.value = 0;
12}
13
14static global_t global;
15
16void increment3( global_t & mutex this ) {
17        this.value += 1;
18}
19
20void increment2( global_t & mutex this ) {
21        increment3( this );
22}
23
24void increment( global_t & mutex this ) {
25        increment2( this );
26}
27
28thread MyThread {};
29
30void main( MyThread & this ) {
31        for(int i = 0; i < 750_000; i++) {
32                increment( global );
33        }
34}
35
36int main(int argc, char* argv[]) {
37        assert( global.__mon.entry_queue.tail != NULL );
38        processor p;
39        {
40                MyThread f[4];
41        }
42        sout | global.value;
43}
Note: See TracBrowser for help on using the repository browser.