diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2025-08-22 19:25:13 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2025-08-22 19:25:13 (GMT) |
| commit | 7e4c95c24ea85cfe56f17aa415c3dfc920d271a3 (patch) | |
| tree | 89ae67cb0f5a9e162ce0c0915c3df364d1c5cac1 | |
| parent | 7093dc16ae75a5a9c2a60c29752aa153ca40f6f9 (diff) | |
| download | tcl-7e4c95c24ea85cfe56f17aa415c3dfc920d271a3.zip tcl-7e4c95c24ea85cfe56f17aa415c3dfc920d271a3.tar.gz tcl-7e4c95c24ea85cfe56f17aa415c3dfc920d271a3.tar.bz2 | |
Fix memory debugging info
| -rw-r--r-- | generic/tclStringObj.c | 4 |
1 files changed, 4 insertions, 0 deletions
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( |