Changeset 400

Timestamp:

Jan 25, 2004, 2:11:31 PM (21 years ago)

Author:

Gary Byers

Message:

Move some time stuff to time.lisp.

File:

• trunk/ccl/level-1/linux-files.lisp (modified) (2 diffs)

trunk/ccl/level-1/linux-files.lisp

@@ -273 +273 @@
     (+ (* 1000 (pref tv :timeval.tv_sec)) (round (pref tv :timeval.tv_usec) 1000)))
 
-(defun get-internal-real-time ()
-  (rlet ((tv :timeval))
-    (#_gettimeofday tv (%null-ptr))
-    (timeval->milliseconds tv)))
 
 (defun %add-timevals (result a b)
@@ -301 +297 @@
 
 
-(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)))))
+