浏览代码

added TimerFrequency()

git-svn-id: https://svn.inf.ethz.ch/svn/lecturers/a2/trunk@6332 8c9fc860-2736-0410-a75d-ab315db34111
eth.guenter 10 年之前
父节点
当前提交
36268da672
共有 1 个文件被更改,包括 5 次插入0 次删除
  1. 5 0
      source/Unix.Objects.Mod

+ 5 - 0
source/Unix.Objects.Mod

@@ -701,6 +701,11 @@ TYPE
 		END
 	END GCLoop;	
 	
+	PROCEDURE TimerFrequency*(): HUGEINT;
+	BEGIN
+		RETURN Machine.mhz * 1000000
+	END TimerFrequency;
+
 	
 	(*----------------------------- initialization ----------------------------------*)