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

Modify call frames to keep pointers and let cl_funcall() share frames among calls

Browse source
This commit is contained in:
jgarcia 2008-05-12 08:11:37 +00:00
parent 60485cbbe3
commit bd09f93e3c
14 changed files with 252 additions and 187 deletions
Download patch file Download diff file Expand all files Collapse all files

2
src/cmp/cmpstack.lsp
View file

@ -35,7 +35,7 @@
(let* ((new-destination (tmp-destination *destination*))
(*temp* *temp*))
(wt-nl "{ struct ecl_stack_frame _ecl_inner_frame_aux;")
(wt-nl *volatile* "cl_object _ecl_inner_frame = (_ecl_inner_frame_aux.narg=0,_ecl_inner_frame_aux.sp=0,_ecl_inner_frame_aux.t=t_frame,(cl_object)&_ecl_inner_frame_aux);")
(wt-nl *volatile* "cl_object _ecl_inner_frame = ecl_stack_frame_open((cl_object)&_ecl_inner_frame_aux,0);")
(let* ((*destination* new-destination)
(*unwind-exit* `((STACK ,+ecl-stack-frame-variable+) ,@*unwind-exit*)))
(c2expr* body))