🚀 go-pugleaf

With the attached modules I mesured the following values (Win95 on P120)

	1.38E+4 Tasks/s using the standard System 3 for Windows
	1.24E+5 Taks/s using my experimental Multithreaded System 3 For Winows 95

In the multithreaded versions the Oberon.Loop does not poll the windows message queue.

Emi Zeller


MODULE TestTasks;
	IMPORT Input, Texts, Oberon;

	VAR
		T: Oberon.Task;
		count, time: LONGINT;
		W: Texts.Writer;

	PROCEDURE *Timer(me: Oberon.Task);
	BEGIN
		INC(count)
	END Timer;

	PROCEDURE Start*;
	BEGIN
		IF T = NIL THEN
			NEW(T); T.safe := FALSE; T.time := 0; T.handle := Timer;
			count := 0; time := Input.Time();
			Oberon.Install(T)
		END
	END Start;

	PROCEDURE Stop*;
	BEGIN
		IF T # NIL THEN
			time := Input.Time()-time;
			Oberon.Remove(T); T := NIL;
			Texts.WriteReal(W, count/(time/Input.TimeUnit), 20); Texts.WriteLn(W);
			Texts.Append(Oberon.Log, W.buf)
		END
	END Stop;

BEGIN
	T := NIL; Texts.OpenWriter(W)
END TestTasks.

TestTasks.Start
TestTasks.Stop