Changeset 4972

Timestamp:

Aug 20, 2006, 4:10:12 PM (18 years ago)

Author:

Gary Byers

Message:

:struct-by-value: don't read-time conditionalize (do other things still use
read-time conditionals ?)

File:

• trunk/ccl/lib/db-io.lisp (modified) (1 diff)

trunk/ccl/lib/db-io.lisp

@@ -1241 +1241 @@
                       `(#\l)
                       '(#\?)))))))))))
-    ((:struct :union) #+eabi-target `(#\a)
-     #+poweropen-target (if return-value-p `(#\a)
-                          `(#\r ,@(encode-name (ffi-struct-reference (cadr spec))))))
+    ((:struct :union)
+     (if (getf (ftd-attributes *target-ftd*) :struct-by-value)
+       (if return-value-p `(#\a)
+                          `(#\r ,@(encode-name (ffi-struct-reference (cadr spec)))))
+       `(#\a)))
     (:typedef
      (let* ((typedef (cadr spec))