Changeset 10520

Timestamp:

08/22/08 08:55:57 (3 months ago)

Author:

gb

Message:

When a transparent union is passed by value, treat the argument as if
it were of the type of the union's first field. (Small unions might
otherwise be passed by value in one or two registers.)

Files:

• trunk/source/compiler/X86/X8664/x8664-backend.lisp (modified) (1 diff)

trunk/source/compiler/X86/X8664/x8664-backend.lisp

@@ -404 +404 @@
-                    (argforms arg-value-form))
-                  (let* ((ftype (parse-foreign-type arg-type-spec)))
+                    (when (and (typep ftype 'foreign-record-type)
+                             (eq (foreign-record-type-kind ftype) :transparent-union))
+                      (ensure-foreign-type-bits ftype)
+                      (setq ftype (foreign-record-field-type
+                                   (car (foreign-record-type-fields ftype)))
+                            arg-type-spec (foreign-type-to-representation-type ftype)))
-                    (if (typep ftype 'foreign-record-type)
-                      (multiple-value-bind (first8 second8)