From 7093dc16ae75a5a9c2a60c29752aa153ca40f6f9 Mon Sep 17 00:00:00 2001 From: dgp Date: Thu, 21 Aug 2025 16:21:10 +0000 Subject: Make logical -> bitwise correction corresponding to recent change in Tcl 9. --- generic/tclOO.c | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/generic/tclOO.c b/generic/tclOO.c index 9dce0ef..b488cee 100644 --- a/generic/tclOO.c +++ b/generic/tclOO.c @@ -1168,7 +1168,7 @@ ObjectNamespaceDeleted( * freed memory. */ - if (((Command *) oPtr->command)->flags && CMD_IS_DELETED) { + if (((Command *) oPtr->command)->flags & CMD_IS_DELETED) { /* * Something has already started the command deletion process. We can * go ahead and clean up the namespace, -- cgit v0.12 From 7e4c95c24ea85cfe56f17aa415c3dfc920d271a3 Mon Sep 17 00:00:00 2001 From: "jan.nijtmans" 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