summaryrefslogtreecommitdiff
path: root/lib/thread/test/mutex.myr
blob: e29ae854bfd0a8b0a2738732218eebb386fee7ab (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
use std
use thread

use "test/util.use"

const Nherd = 20

var val : uint64 = 0
var done : uint32 = 0
var mtx : thread.mutex

const main = {
	done = 0
	val = 0

	mtx = thread.mkmtx()
	mkherd(Nherd, incvar)
	while thread.xget(&done) != Nherd
		/* nothing */
	;;
	if val != 1000 * 20
		std.fatal("mutexes are broken, got {}\n", val)
	;;
}

const incvar = {
	for var i = 0; i < 1000; i++
		thread.mtxlock(&mtx)
		val++
		std.put("val: {}\n", val)
		thread.mtxunlock(&mtx)
	;;
	thread.xadd(&done, 1)
}