q/lib/mem/alloc_mac.q

import sys

alloc(length Int) -> Pointer {
	x := sys.mmap(0, length, 0x1|0x2, 0x02|0x1000)

	if x <= 0 {
		return x
	}

	store(x, 8, length)
	return x + 8
}