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

Make MAYBE-PUSH-ARGS smaller.

Browse source
This commit is contained in:
jjgarcia 2002-10-21 12:29:44 +00:00
parent a9e4edf4d0
commit a682c5accb
1 changed files with 6 additions and 12 deletions
Download patch file Download diff file Expand all files Collapse all files

18
src/cmp/cmpcall.lsp
View file

@ -171,20 +171,14 @@
(when (or (eq args 'ARGS-PUSHED)
(< (length args) SI::C-ARGUMENTS-LIMIT))
(return-from maybe-push-args (values nil nil nil)))
(let* ((temp *temp*) ; allow reuse of TEMP variables
(*temp* temp)
(arg (list 'TEMP 0))
(narg `(LCL ,(next-lcl))))
(let* ((narg `(LCL ,(next-lcl))))
(wt-nl "{cl_index " narg ";")
(let ((*destination* arg))
(let* ((*temp* *temp*)
(temp `(TEMP ,(next-temp)))
(*destination* temp))
(dolist (expr args)
(setf (second arg) (next-temp))
(c2expr* expr)))
(setf (second arg) temp) ; restart numbering
(dotimes (i (length args))
(wt-nl "cl_stack_push(" arg ");")
(incf (second arg)))
(wt-nl narg "=" (length args) ";")
(c2expr* expr)
(wt-nl "cl_stack_push(" temp "); " narg "++;")
(values `((STACK ,narg) ,@*unwind-exit*) 'ARGS-PUSHED narg)))
;;;