mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-04-27 11:40:45 -07:00
Code Issues Projects Releases Packages Wiki Activity

cmp: cleanup: remove bogus constant

Browse source 
+ecl-stack-frame-variable+ was used in just two places, and the same
string was used also elsewhere (not as this constant).
This commit is contained in:
Daniel Kochmanski 2017-04-28 11:51:29 +02:00
parent 15640a79e4
commit f55c0111a2
1 changed files with 2 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

6
src/cmp/cmpstack.lsp
View file

@ -24,8 +24,6 @@
(in-package "COMPILER")
(defconstant +ecl-stack-frame-variable+ "_ecl_inner_frame")
(defconstant +ecl-local-stack-frame-variable+ "__frame")
(defconstant +ecl-local-stack-variable+ "__frame_sp")
@ -45,14 +43,14 @@
(wt-nl "struct ecl_stack_frame _ecl_inner_frame_aux;")
(wt-nl *volatile* "cl_object _ecl_inner_frame = ecl_stack_frame_open(cl_env_copy,(cl_object)&_ecl_inner_frame_aux,0);")
(let* ((*destination* new-destination)
(*unwind-exit* `((STACK ,+ecl-stack-frame-variable+) ,@*unwind-exit*)))
(*unwind-exit* `((STACK "_ecl_inner_frame") ,@*unwind-exit*)))
(c2expr* body))
(wt-nl "ecl_stack_frame_close(_ecl_inner_frame);")
(wt-nl-close-brace)
(unwind-exit new-destination)))
(defun c1innermost-stack-frame (args)
`(c-inline () () :object ,+ecl-stack-frame-variable+
`(c-inline () () :object "_ecl_inner_frame"
:one-liner t :side-effects nil))
(defun c1stack-push (args)