Changeset 6326 for branches

Timestamp:

Apr 22, 2007, 3:42:03 AM (18 years ago)

Author:

Gary Byers

Message:

FreeBSD CPU-COUNT sysctl call looked bad.

File:

• branches/x8664-call/ccl/level-1/linux-files.lisp (modified) (1 diff)

branches/x8664-call/ccl/level-1/linux-files.lisp

@@ -1128 +1128 @@
              1)
             #+freebsd-target
-            (%stack-block ((ret (record-length :uint))
-                           (mib (* (record-length :uint))))
-              (setf (%get-unsigned-long mib 0)
+            (rlet ((ret :uint)
+                   (mib (:array :uint 2)))
+              (setf (paref mib (:array :uint) 0)
                     #$CTL_HW
-                    (%get-unsigned-long mib (record-length :uint))
+                    (paref mib (:array :uint) 1)
                     #$HW_NCPU)
               (rlet ((oldsize :uint (record-length :uint)))