~sircmpwn/hare

hare/rt/+linux/segmalloc.ha -rw-r--r-- 441 bytes
9ac59a70Eyal Sawady rt::clone: fix on aarch64 2 days ago
                                                                                
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
// Allocates a segment.
fn segmalloc(n: size) nullable *void = {
	return match (mmap(null, n, PROT_READ | PROT_WRITE,
		MAP_PRIVATE | MAP_ANON, -1, 0)) {
	case err: errno =>
		assert(err == ENOMEM: errno);
		yield null;
	case p: *void =>
		yield p;
	};
};

// Frees a segment allocated with segmalloc.
fn segfree(p: *void, s: size) void = {
	match (munmap(p, s)) {
		case err: errno =>
			abort("munmap failed");
		case void => void;
	};
};