mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2025-12-05 18:30:24 -08:00
Code Issues Projects Releases Packages Wiki Activity

cmp: assign _ecl_debug_env to lcl_env (not lex_env)

Browse source
This commit is contained in:
Daniel Kochmański 2025-11-29 22:22:41 +01:00
parent dfb691ede8
commit 9f9c9a8037
2 changed files with 3 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

2
src/cmp/cmpbackend-cxx/cmppass2-exit.lsp
View file

@ -199,7 +199,7 @@
(wt-nl "ecl_bds_unwind_n(cl_env_copy," bds-bind ");")) (wt-nl "ecl_bds_unwind_n(cl_env_copy," bds-bind ");"))
(case ihs-p (case ihs-p
(IHS (wt-nl "ecl_ihs_pop(cl_env_copy);")) (IHS (wt-nl "ecl_ihs_pop(cl_env_copy);"))
(IHS-ENV (wt-nl "ihs.lex_env = _ecl_debug_env;")))) (IHS-ENV (wt-nl "ihs.lcl_env = _ecl_debug_env;"))))
(defun %unwind (into from) (defun %unwind (into from)
(declare (si::c-local)) (declare (si::c-local))

4
src/cmp/cmpbackend-cxx/cmppass2-var.lsp
View file

@ -75,11 +75,11 @@
(+ 2 (length filtered-locations)) (+ 2 (length filtered-locations))
",,);") ",,);")
(unless first (unless first
(wt-nl "ihs.lex_env = _ecl_debug_env;"))) (wt-nl "ihs.lcl_env = _ecl_debug_env;")))
filtered-codes)) filtered-codes))
(defun pop-debug-lexical-env () (defun pop-debug-lexical-env ()
(wt-nl "ihs.lex_env = _ecl_debug_env;")) (wt-nl "ihs.lcl_env = _ecl_debug_env;"))
(defun c2let* (c1form vars forms body (defun c2let* (c1form vars forms body
&aux &aux