Changeset 8016


Ignore:
Timestamp:
Jan 8, 2008, 8:35:21 AM (12 years ago)
Author:
gb
Message:

Do unsigned comparisons for arg-checking.

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

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/working-0711/ccl/compiler/X86/X8664/x8664-vinsns.lisp

    r8009 r8016  
    326326  :resume
    327327  (rcmpw (:%w x8664::nargs) (:$w (:apply ash n x8664::word-shift)))
    328   (jg :bad)
     328  (ja :bad)
    329329 
    330330  (:anchored-uuo-section :resume)
     
    344344   (jb :toofew))
    345345  (rcmpw (:%w x8664::nargs) (:$w (:apply ash max x8664::word-shift)))
    346   (jg :toomany)
     346  (ja :toomany)
    347347 
    348348  (:anchored-uuo-section :resume)
    349349  :toofew
    350350  (:anchored-uuo (uuo-error-too-few-args))
     351  (:anchored-uuo-section :resume)
    351352  :toomany
    352353  (:anchored-uuo (uuo-error-too-many-args)))
Note: See TracChangeset for help on using the changeset viewer.