Changeset 6326


Ignore:
Timestamp:
Apr 22, 2007, 10:42:03 AM (15 years ago)
Author:
gb
Message:

FreeBSD CPU-COUNT sysctl call looked bad.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/x8664-call/ccl/level-1/linux-files.lisp

    r6200 r6326  
    11281128             1)
    11291129            #+freebsd-target
    1130             (%stack-block ((ret (record-length :uint))
    1131                            (mib (* (record-length :uint))))
    1132               (setf (%get-unsigned-long mib 0)
     1130            (rlet ((ret :uint)
     1131                   (mib (:array :uint 2)))
     1132              (setf (paref mib (:array :uint) 0)
    11331133                    #$CTL_HW
    1134                     (%get-unsigned-long mib (record-length :uint))
     1134                    (paref mib (:array :uint) 1)
    11351135                    #$HW_NCPU)
    11361136              (rlet ((oldsize :uint (record-length :uint)))
Note: See TracChangeset for help on using the changeset viewer.