Changeset 5764

Timestamp:

Jan 21, 2007, 5:14:16 AM (18 years ago)

Author:

Gary Byers

Message:

Don't assume that passing a structure by value in N words is Darwin-specific.
(LinuxPPC32 is probably the only platform that doesn't support the convention.)

File:

• trunk/ccl/compiler/nx1.lisp (modified) (2 diffs)

trunk/ccl/compiler/nx1.lisp

@@ -1337 +1337 @@
          (vals ())
          (register-spec-seen nil)
-         (darwin-target-p (or (eql operator (%nx1-operator poweropen-syscall))
-                              (eql operator (%nx1-operator poweropen-ff-call))))
          (monitor (eq (car arg-specs-and-result-spec) :monitor-exception-ports))
          (arg-specs (butlast arg-specs-and-result-spec))
@@ -1351 +1349 @@
              (value (pop arg-specs)))
         (if (or (memq arg-keyword *arg-spec-keywords*)
-                (and darwin-target-p
-                     (typep arg-keyword 'unsigned-byte)))
+                (typep arg-keyword 'unsigned-byte))
           (progn 
             (push arg-keyword specs)