Changeset 5919

Timestamp:

Feb 13, 2007, 5:41:52 PM (18 years ago)

Author:

Gary Byers

Message:

Don't do whatever el-bizarro Mach thing once seemed to be necessary in
%%RUSAGE. Require syscall stuff when :execute, too.

File:

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

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

@@ -17 +17 @@
 (in-package "CCL")
 
-(eval-when (:compile-toplevel)
+(eval-when (:compile-toplevel :execute)
   #+linuxppc-target
   (require "PPC-LINUX-SYSCALLS")
@@ -383 +383 @@
 
 (defun %%rusage (usage &optional (who #$RUSAGE_SELF))
-  (syscall syscalls::getrusage who usage)
-  #+(and darwinppc-target (not 64-bit-target))
-  (rlet ((count :natural_t #$TASK_THREAD_TIMES_INFO_COUNT))
-    (#_task_info (#_mach_task_self) #$TASK_THREAD_TIMES_INFO usage count)))
+  (syscall syscalls::getrusage who usage))