Changeset 8019 for branches/working-0711/ccl/compiler/X86/x862.lisp

Timestamp:

Jan 8, 2008, 8:38:49 AM (13 years ago)

Author:

gb

Message:

Use CHECK-MIN-MAX-NARGS to anchor both UUOs.

File:

• branches/working-0711/ccl/compiler/X86/x862.lisp (modified) (1 diff)

branches/working-0711/ccl/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)