[Oberon] FPGA - System Clock advance

Tomas Kral thomas.kral at email.cz
Fri Mar 1 11:08:54 CET 2019


On Thu, 28 Feb 2019 21:54:14 +0100
Jörg <joerg.straube at iaeth.ch> wrote:

> - Kernel.Time() counts the ms since last reboot.
> - Kernel.Clock() stores date and time in seconds.

This would be easy, but needs refinement :-)

PROCEDURE DT; (*advance date time*)
BEGIN
 dt := Kernel.Clock(); (*date time in secs*)
 INC(dt); Kernel.SetClock(dt);
END DT;

PROCEDURE GC; (*garbage collect*)
BEGIN DT();
 (*do gc*)
END GC;

-- 
Tomas Kral <thomas.kral at email.cz>


More information about the Oberon mailing list