Changeset 6117

Timestamp:

Apr 4, 2007, 3:20:43 AM (13 years ago)

Author:

gb

Message:

Count "simple" arg specs against used gprs/fprs. D'oh.
Check other platforms, too.

File:

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

branches/objc-gf/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