소스 검색

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 ----------------------------------*)