Changeset 406

Timestamp:

Jan 25, 2004, 2:16:22 PM (21 years ago)

Author:

Gary Byers

Message:

GET-INTERNAL-xxx-TIME moved here.

File:

• trunk/ccl/lib/time.lisp (modified) (1 diff)

trunk/ccl/lib/time.lisp

@@ -171 +171 @@
     (%nanosleep (floor ticks tps) (* npt (mod ticks tps)))))
 
-
-
-
-
-
+(defun get-internal-run-time ()
+  (rlet ((usage :rusage)
+         (total :timeval))
+    (%%rusage usage)
+    (timeval->milliseconds (%add-timevals total 
+                                          (pref usage :rusage.ru_utime) 
+                                          (pref usage :rusage.ru_stime)))))
+(defun get-internal-real-time ()
+  (rlet ((tv :timeval))
+    (#_gettimeofday tv (%null-ptr))
+    (timeval->milliseconds tv)))