git-svn-id: https://svn.inf.ethz.ch/svn/lecturers/a2/trunk@6332 8c9fc860-2736-0410-a75d-ab315db34111
@@ -701,6 +701,11 @@ TYPE
END
END GCLoop;
+ PROCEDURE TimerFrequency*(): HUGEINT;
+ BEGIN
+ RETURN Machine.mhz * 1000000
+ END TimerFrequency;
+
(*----------------------------- initialization ----------------------------------*)