source: src/tests/concurrent/thread.c @ 34dcc474

new-envwith_gc
Last change on this file since 34dcc474 was 557435e, checked in by Thierry Delisle <tdelisle@…>, 7 years ago

Moved concurrent objects

  • Property mode set to 100644
File size: 761 bytes
RevLine 
[0c92c9f]1#include <fstream>
2#include <kernel>
3#include <stdlib>
[4a3334cf]4#include <thread>
[0c92c9f]5
[f3c1737]6thread First  { semaphore* lock; };
7thread Second { semaphore* lock; };
[0c92c9f]8
[83a071f9]9void ?{}( First & this, semaphore & lock ) { this.lock = &lock; }
10void ?{}( Second & this, semaphore & lock ) { this.lock = &lock; }
[0c92c9f]11
[83a071f9]12void main(First& this) {
[0c92c9f]13        for(int i = 0; i < 10; i++) {
14                sout | "First : Suspend No." | i + 1 | endl;
15                yield();
16        }
[4cedd9f]17        V(*this.lock);
[0c92c9f]18}
19
[83a071f9]20void main(Second& this) {
[4cedd9f]21        P(*this.lock);
[0c92c9f]22        for(int i = 0; i < 10; i++) {
23                sout | "Second : Suspend No." | i + 1 | endl;
24                yield();
25        }
26}
27
28
29int main(int argc, char* argv[]) {
[f3c1737]30        semaphore lock = { 0 };
[0c92c9f]31        sout | "User main begin" | endl;
32        {
[ee897e4b]33                processor p;
[0c92c9f]34                {
[83a071f9]35                        First  f = { lock };
36                        Second s = { lock };
[0c92c9f]37                }
38        }
39        sout | "User main end" | endl;
[242a902]40}
Note: See TracBrowser for help on using the repository browser.