diff options
| author | dkf <donal.k.fellows@manchester.ac.uk> | 2025-08-22 07:16:45 (GMT) |
|---|---|---|
| committer | dkf <donal.k.fellows@manchester.ac.uk> | 2025-08-22 07:16:45 (GMT) |
| commit | 03dd129a16f43ca26c64bce498157abd7e249856 (patch) | |
| tree | 23cfff0a454cb21f11f400c8a1cc350c795a91a8 /generic/tclStringObj.c | |
| parent | f80e08da71e969b6b79dd861d91f684a8159e9f2 (diff) | |
| download | tcl-03dd129a16f43ca26c64bce498157abd7e249856.zip tcl-03dd129a16f43ca26c64bce498157abd7e249856.tar.gz tcl-03dd129a16f43ca26c64bce498157abd7e249856.tar.bz2 | |
Fix memory debugging info
Diffstat (limited to 'generic/tclStringObj.c')
| -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 13fbdbc..c33860d 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( |