Changeset 8355

Timestamp:

Jan 29, 2008, 2:23:19 AM (17 years ago)

Author:

Gary Byers

Message:

x862-simple-opt-entry: use (! check-min-max-args) when appropriate.
In x862-lambda, the one variant of opt-supplied-p that needs to know
num-opt gets it as a constant arg now.

File:

• trunk/source/compiler/X86/x862.lisp (modified) (3 diffs)

trunk/source/compiler/X86/x862.lisp

@@ -1009 +1009 @@
     (with-x86-local-vinsn-macros (seg)
       (unless *x862-reckless*
-        (when rev-req-args
-          (! check-min-nargs min))
-        (! check-max-nargs max))
+        (if rev-req-args
+          (! check-min-max-nargs min max)
+          (! check-max-nargs max)))
       (if (> min $numx8664argregs)
         (! save-lisp-context-in-frame)
@@ -5613 +5613 @@
                 (when hardopt
                   (x862-reserve-vstack-lcells num-opt)
-                  (x862-lri seg x8664::imm0 (ash num-opt *x862-target-fixnum-shift*))
+                  
 
                   ;; ! opt-supplied-p wants nargs to contain the
@@ -5625 +5625 @@
                         ((= 2 num-opt)
                          (! two-opt-supplied-p))
-                        (t (! opt-supplied-p))))
+                        (t
+                         (! opt-supplied-p num-opt))))
                 (let* ((nwords-vpushed (+ num-fixed 
                                           num-opt