File 5612-erts-Fix-bug-in-dmc_current_stacktrace.patch of Package erlang

From 50b7a54f9dd15c5cc5d04a02b037a2ce1dd5dad2 Mon Sep 17 00:00:00 2001
From: Sverker Eriksson <sverker@erlang.org>
Date: Tue, 9 Jan 2024 17:16:14 +0100
Subject: [PATCH 2/2] erts: Fix bug in dmc_current_stacktrace()

---
 erts/emulator/beam/erl_db_util.c | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/erts/emulator/beam/erl_db_util.c b/erts/emulator/beam/erl_db_util.c
index 27bbf645a8..407b58aa2f 100644
--- a/erts/emulator/beam/erl_db_util.c
+++ b/erts/emulator/beam/erl_db_util.c
@@ -5280,7 +5280,7 @@ static DMCRet dmc_current_stacktrace(DMCContext *context,
                                     Eterm t,
                                     int *constant)
 {
-    Eterm *p = tuple_val(t);
+    const Eterm *p = tuple_val(t);
     Uint a = arityval(*p);
     DMCRet ret;
     int depth;
@@ -5311,10 +5311,10 @@ static DMCRet dmc_current_stacktrace(DMCContext *context,
         }
 
         if (depth > erts_backtrace_depth) {
-            p[2] = make_small(erts_backtrace_depth);
+            depth = erts_backtrace_depth;
         }
 
-        do_emit_constant(context, text, p[2]);
+        do_emit_constant(context, text, make_small(depth));
         DMC_PUSH(*text, matchCurrentStacktrace);
         break;
     default:
-- 
2.35.3