source: tests/concurrent/coroutineYield.c @ 2fd9f24

ADTaaron-thesisarm-ehast-experimentalcleanup-dtorsdeferred_resnenumforall-pointer-decayjacob/cs343-translationjenkins-sandboxnew-astnew-ast-unique-exprno_listpersistent-indexerpthread-emulationqualifiedEnum
Last change on this file since 2fd9f24 was 096a2ff, checked in by Aaron Moss <a3moss@…>, 6 years ago

Fix hfa extensions on concurrency tests

  • Property mode set to 100644
File size: 904 bytes
Line 
1#include <fstream.hfa>
2#include <kernel.hfa>
3#include <stdlib.hfa>
4#include <thread.hfa>
5#include <time.hfa>
6
7#define __kick_rate 150000ul
8#include "long_tests.h"
9
10#ifndef PREEMPTION_RATE
11#define PREEMPTION_RATE 10`ms
12#endif
13
14Duration default_preemption() {
15        return PREEMPTION_RATE;
16}
17
18#ifdef TEST_LONG
19static const unsigned long N = 600_000ul;
20#else
21static const unsigned long N = 1_000ul;
22#endif
23
24coroutine Coroutine {};
25
26void main(Coroutine& this) {
27        while(true) {
28                #if !defined(TEST_FOREVER)
29                        sout | "Coroutine 1" | endl;
30                #endif
31                yield();
32                #if !defined(TEST_FOREVER)
33                        sout | "Coroutine 2" | endl;
34                #endif
35                suspend();
36        }
37}
38
39
40int main(int argc, char* argv[]) {
41        Coroutine c;
42        for(int i = 0; TEST(i < N); i++) {
43                #if !defined(TEST_FOREVER)
44                        sout | "Thread 1" | endl;
45                #endif
46                resume(c);
47                #if !defined(TEST_FOREVER)
48                        sout | "Thread 2" | endl;
49                #endif
50                yield();
51                KICK_WATCHDOG;
52        }
53}
Note: See TracBrowser for help on using the repository browser.