Changeset 8778


Ignore:
Timestamp:
Mar 14, 2008, 11:10:16 AM (12 years ago)
Author:
gb
Message:

Use CHECK-MIN-MAX-ARGS in x862-lambda.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/working-0711/ccl/compiler/X86/x862.lisp

    r8706 r8778  
    56645664        (@ (backend-get-next-label)) ; generic self-reference label, should be label #1
    56655665        (! establish-fn)
    5666         (@ (backend-get-next-label)) ; self-call label
     5666        (@ (backend-get-next-label))    ; self-call label
    56675667        (when keys ;; Ensure keyvect is the first immediate
    56685668          (x86-immediate-label (%cadr (%cdddr keys))))
     
    56875687                ;; received.  If there's an upper bound, enforce it.
    56885688               
    5689                 (when rev-fixed
    5690                   (x862-reserve-vstack-lcells num-fixed)                   
    5691                   (! check-min-nargs num-fixed))
    5692                 (when max-args
    5693                   (! check-max-nargs max-args))
     5689                (cond (rev-fixed
     5690                       (x862-reserve-vstack-lcells num-fixed)
     5691                       (if max-args
     5692                         (! check-min-max-nargs num-fixed max-args)
     5693                         (! check-min-nargs num-fixed)))
     5694                      (max-args
     5695                       (! check-max-nargs max-args)))
    56945696                (if (not (or rest keys))
    56955697                  (if (<= (+ num-fixed num-opt) $numx8664argregs)
Note: See TracChangeset for help on using the changeset viewer.