Ignore:
Timestamp:
Apr 4, 2008, 10:59:54 PM (12 years ago)
Author:
gb
Message:

Check arg count before deciding to use builtin-call (ticket:267)

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/compiler/nx0.lisp

    r8992 r9027  
    19211921    (make-acode (%nx1-operator lexical-function-call) afunc (nx1-arglist arglist (if spread-p 1 (backend-num-arg-regs *target-backend*))) spread-p)
    19221922    (let* ((builtin (unless spread-p (nx1-builtin-function-offset global-name))))
    1923       (if builtin
     1923      (if (and builtin
     1924               (let* ((bits (lfun-bits (fboundp global-name))))
     1925                 (and bits (eql (logand $lfbits-args-mask bits)
     1926                                (dpb (length arglist)
     1927                                     $lfbits-numreq
     1928                                     0)))))
    19241929        (make-acode (%nx1-operator builtin-call)
    19251930                    (make-acode (%nx1-operator fixnum) builtin)
Note: See TracChangeset for help on using the changeset viewer.