From 7e4c95c24ea85cfe56f17aa415c3dfc920d271a3 Mon Sep 17 00:00:00 2001
From: "jan.nijtmans" <nijtmans@users.sourceforge.net>
Date: Fri, 22 Aug 2025 19:25:13 +0000
Subject: Fix memory debugging info

---
 generic/tclStringObj.c | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/generic/tclStringObj.c b/generic/tclStringObj.c
index c7812b6..7405f4d 100644
--- a/generic/tclStringObj.c
+++ b/generic/tclStringObj.c
@@ -257,6 +257,10 @@ Tcl_NewStringObj(
 {
     return Tcl_DbNewStringObj(bytes, length, "unknown", 0);
 }
+
+/* Redefine the macro */
+#define Tcl_NewStringObj(bytes, len) \
+     Tcl_DbNewStringObj(bytes, len, __FILE__, __LINE__)
 #else /* if not TCL_MEM_DEBUG */
 Tcl_Obj *
 Tcl_NewStringObj(
-- 
cgit v0.12