module/bench.m


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17

# Benchmarking

Bench: module
{
	PATH:	con "$Bench";

	FD: adt
	{
		fd:	int;
	};

	microsec:		fn(): big;
	reset:		fn();
	read:			fn(fd: ref FD, buf: array of byte, n: int): int;
	disablegc:		fn();
	enablegc:		fn();
};