From 9f9c9a8037c30c033b010a295aa510066c52e689 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Daniel=20Kochma=C5=84ski?= Date: Sat, 29 Nov 2025 22:22:41 +0100 Subject: [PATCH] cmp: assign _ecl_debug_env to lcl_env (not lex_env) --- src/cmp/cmpbackend-cxx/cmppass2-exit.lsp | 2 +- src/cmp/cmpbackend-cxx/cmppass2-var.lsp | 4 ++-- 2 files changed, 3 insertions(+), 3 deletions(-) diff --git a/src/cmp/cmpbackend-cxx/cmppass2-exit.lsp b/src/cmp/cmpbackend-cxx/cmppass2-exit.lsp index 03397108c..1e327db64 100644 --- a/src/cmp/cmpbackend-cxx/cmppass2-exit.lsp +++ b/src/cmp/cmpbackend-cxx/cmppass2-exit.lsp @@ -199,7 +199,7 @@ (wt-nl "ecl_bds_unwind_n(cl_env_copy," bds-bind ");")) (case ihs-p (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) (declare (si::c-local)) diff --git a/src/cmp/cmpbackend-cxx/cmppass2-var.lsp b/src/cmp/cmpbackend-cxx/cmppass2-var.lsp index 3f84eab41..be433efaf 100644 --- a/src/cmp/cmpbackend-cxx/cmppass2-var.lsp +++ b/src/cmp/cmpbackend-cxx/cmppass2-var.lsp @@ -75,11 +75,11 @@ (+ 2 (length filtered-locations)) ",,);") (unless first - (wt-nl "ihs.lex_env = _ecl_debug_env;"))) + (wt-nl "ihs.lcl_env = _ecl_debug_env;"))) filtered-codes)) (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 &aux