mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-01-12 20:31:55 -08:00
Code Issues Projects Releases Packages Wiki Activity

Do not create varargs C variable when it is not used.

Browse source
This commit is contained in:
Juan Jose Garcia Ripoll 2009-07-26 12:38:31 +02:00
parent b2e3a050a8
commit 5aff005c35
1 changed files with 5 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

11
src/cmp/cmplam.lsp
View file

@ -386,11 +386,10 @@ The function thus belongs to the type of functions that ecl_make_cfun accepts."
(bind `(LCL ,reqi) var))
((unboxed var) ; create unboxed variable
(setf (var-loc var) (wt-decl var)))))
#+nil ; jjgr debug
(loop for req in requireds
do (print (list local-entry-p req (var-loc req))))
(when (and rest (< (var-ref rest) 1)) ; dont create rest if not used
(setq rest nil))
;; dont create rest or varargs if not used
(when (and rest (< (var-ref rest) 1))
(setq rest nil
varargs (or optionals keywords allow-other-keys)))
(do ((opt optionals (cdddr opt)))
((endp opt))
(do-decl (first opt))
@ -415,7 +414,7 @@ The function thus belongs to the type of functions that ecl_make_cfun accepts."
;; Bind required parameters.
(do ((reqs requireds (cdr reqs))
(reqi (1+ req0) (1+ reqi))) ; to allow concurrent compilations
(reqi (1+ req0) (1+ reqi)))
((or local-entry-p (endp reqs)))
(declare (fixnum reqi) (type cons reqs))
(bind `(LCL ,reqi) (first reqs)))