Changeset 5774

Timestamp:

Jan 21, 2007, 7:32:55 AM (18 years ago)

Author:

Gary Byers

Message:

Name vinsn ff-call-return-registers (not "-returning-").

Typecheck the :registers arg.

File:

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

trunk/ccl/compiler/X86/x862.lisp

@@ -8442 +8442 @@
           (case spec
             (:registers
-             (x862-vpush-register seg (x862-one-untargeted-reg-form seg valform x8664::arg_z)))
+             (let* ((reg (x862-one-untargeted-reg-form seg valform x8664::arg_z)))
+               (unless *x862-reckless*
+                 (! trap-unless-macptr reg))
+               (x862-vpush-register seg reg)))
             (:double-float
              (let* ((df ($ x8664::fp1 :class :fpr :mode :double-float)))
@@ -8514 +8517 @@
       (x862-lri seg x8664::rax (min 8 nfpr-args))
       (if return-registers
-        (! ff-call-returning-registers)
+        (! ff-call-return-registers)
         (! ff-call) )
       (x862-close-undo)