added CurrentProcessTime()

git-svn-id: https://svn.inf.ethz.ch/svn/lecturers/a2/trunk@6333 8c9fc860-2736-0410-a75d-ab315db34111

source/Unix.Objects.Mod

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