Changeset 6332


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

Cant use (:array :uint 2) in the cold load without making a fuss about it.

File:
1 edited

Legend:

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

    r6326 r6332  
    11281128             1)
    11291129            #+freebsd-target
    1130             (rlet ((ret :uint)
    1131                    (mib (:array :uint 2)))
     1130            (rlet ((ret :uint))
     1131              (%stack-block ((mib (* (record-length :uint) 2)))
    11321132              (setf (paref mib (:array :uint) 0)
    11331133                    #$CTL_HW
     
    11371137                (if (eql 0 (#_sysctl mib 2 ret oldsize (%null-ptr) 0))
    11381138                  (pref ret :uint)
    1139                   1)))
     1139                  1))))
    11401140            )))
    11411141
Note: See TracChangeset for help on using the changeset viewer.