source: tests/concurrency/monitor.cfa @ 5f210c0

Last change on this file since 5f210c0 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
RevLine 
[73abe95]1#include <fstream.hfa>
2#include <kernel.hfa>
3#include <monitor.hfa>
4#include <thread.hfa>
[3bb51e1]5
[bcda04c]6monitor global_t {
[3bb51e1]7        int value;
8};
9
[242a902]10void ?{}(global_t & this) {
11        this.value = 0;
[3bb51e1]12}
13
14static global_t global;
15
[83a071f9]16void increment3( global_t & mutex this ) {
17        this.value += 1;
[ef42b143]18}
19
[83a071f9]20void increment2( global_t & mutex this ) {
[ef42b143]21        increment3( this );
22}
23
[83a071f9]24void increment( global_t & mutex this ) {
[ef42b143]25        increment2( this );
[3bb51e1]26}
27
[bd4d011]28thread MyThread {};
[3bb51e1]29
[83a071f9]30void main( MyThread & this ) {
[ed12051]31        for(int i = 0; i < 750_000; i++) {
[83a071f9]32                increment( global );
[3bb51e1]33        }
34}
35
36int main(int argc, char* argv[]) {
[bcda04c]37        assert( global.__mon.entry_queue.tail != NULL );
[3bb51e1]38        processor p;
39        {
[bd4d011]40                MyThread f[4];
[3bb51e1]41        }
[200fcb3]42        sout | global.value;
[242a902]43}
Note: See TracBrowser for help on using the repository browser.