diff options
| author | dkf <donal.k.fellows@manchester.ac.uk> | 2025-08-22 14:52:30 (GMT) |
|---|---|---|
| committer | dkf <donal.k.fellows@manchester.ac.uk> | 2025-08-22 14:52:30 (GMT) |
| commit | cca1a031f796787ad1f40e39cf6d88c163c41e6f (patch) | |
| tree | 67df38d93fcf045ca1562eb1d970393c75c60980 | |
| parent | 4864c57e4d1995198bfd8860b50529c303efe533 (diff) | |
| download | tcl-cca1a031f796787ad1f40e39cf6d88c163c41e6f.zip tcl-cca1a031f796787ad1f40e39cf6d88c163c41e6f.tar.gz tcl-cca1a031f796787ad1f40e39cf6d88c163c41e6f.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 76ad05e..19cda6f 100644 --- a/generic/tclStringObj.c +++ b/generic/tclStringObj.c @@ -235,6 +235,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( |