Changeset 5767

Timestamp:

Jan 21, 2007, 5:38:20 AM (18 years ago)

Author:

Gary Byers

Message:

ff-call: handle n-word struct-by-value, register return without typos.

File:

• trunk/ccl/compiler/X86/x862.lisp (modified) (2 diffs)

trunk/ccl/compiler/X86/x862.lisp

@@ -8507 +8507 @@
             (! reload-double-c-arg ($ fpreg :class :fpr :mode :double-float) from)
             (! reload-single-c-arg ($ fpreg :class :fpr :mode :single-float) from))))
-      (if use-registers
+      (if return-registers
         (x862-vpop-register seg ($ x8664::arg_y)))
       (if simple-foreign-args
@@ -8513 +8513 @@
         (x862-vpop-register seg ($ x8664::arg_z)))
       (x862-lri seg x8664::rax (min 8 nfpr-args))
-      (if use-registers
+      (if return-registers
         (! ff-call-returning-registers)
         (! ff-call) )