Changeset 6172

Timestamp:

Apr 7, 2007, 7:49:55 PM (18 years ago)

Author:

Gary Byers

Message:

In EXPAND-FF-CALL, adjust remaning GPR/FPR counts even if arg is
"simple" and passes straight through to %FF-CALL.

File:

• trunk/ccl/compiler/X86/X8664/x8664-backend.lisp (modified) (2 diffs)

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

@@ -338 +338 @@
                         (typep arg-type-spec 'unsigned-byte))
                   (progn
+                    (if (or (eq arg-type-spec :double-float)
+                            (eq arg-type-spec :single-float))
+                      (decf remaining-fprs)
+                      (unless (typep arg-type-spec 'unsigned-byte)
+                        (decf remaining-gprs)))
                     (argforms arg-type-spec)
                     (argforms arg-value-form))
@@ -373 +378 @@
                                 (argforms `(%%get-unsigned-longlong ,valform 0))))
                             (when second8
+                              (setq valform structure-arg-temp)
                               (if (eq second8 :float)
                                 (progn