Changeset 8016

Timestamp:

Jan 8, 2008, 12:35:21 AM (17 years ago)

Author:

Gary Byers

Message:

Do unsigned comparisons for arg-checking.

CHECK-MIN-MAX-NARGS: need to anchor both toofew and toomany uuos.

File:

• branches/working-0711/ccl/compiler/X86/X8664/x8664-vinsns.lisp (modified) (2 diffs)

branches/working-0711/ccl/compiler/X86/X8664/x8664-vinsns.lisp

@@ -326 +326 @@
   :resume
   (rcmpw (:%w x8664::nargs) (:$w (:apply ash n x8664::word-shift)))
-  (jg :bad)
+  (ja :bad)
   
   (:anchored-uuo-section :resume)
@@ -344 +344 @@
    (jb :toofew))
   (rcmpw (:%w x8664::nargs) (:$w (:apply ash max x8664::word-shift)))
-  (jg :toomany)
+  (ja :toomany)
   
   (:anchored-uuo-section :resume)
   :toofew
   (:anchored-uuo (uuo-error-too-few-args))
+  (:anchored-uuo-section :resume)
   :toomany
   (:anchored-uuo (uuo-error-too-many-args)))