Selaa lähdekoodia

added TimerFrequency()

git-svn-id: https://svn.inf.ethz.ch/svn/lecturers/a2/trunk@6332 8c9fc860-2736-0410-a75d-ab315db34111
eth.guenter 9 vuotta sitten
vanhempi
commit
36268da672
1 muutettua tiedostoa jossa 5 lisäystä ja 0 poistoa
  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 ----------------------------------*)