Changeset 6172


Ignore:
Timestamp:
Apr 8, 2007, 2:49:55 AM (12 years ago)
Author:
gb
Message:

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

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/ccl/compiler/X86/X8664/x8664-backend.lisp

    r5876 r6172  
    338338                        (typep arg-type-spec 'unsigned-byte))
    339339                  (progn
     340                    (if (or (eq arg-type-spec :double-float)
     341                            (eq arg-type-spec :single-float))
     342                      (decf remaining-fprs)
     343                      (unless (typep arg-type-spec 'unsigned-byte)
     344                        (decf remaining-gprs)))
    340345                    (argforms arg-type-spec)
    341346                    (argforms arg-value-form))
     
    373378                                (argforms `(%%get-unsigned-longlong ,valform 0))))
    374379                            (when second8
     380                              (setq valform structure-arg-temp)
    375381                              (if (eq second8 :float)
    376382                                (progn
Note: See TracChangeset for help on using the changeset viewer.