diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2025-08-25 11:16:05 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2025-08-25 11:16:05 (GMT) |
| commit | b33dac7519bc4a79f37f10c65a6a620ec9b0eee2 (patch) | |
| tree | d10c2014ad707c9ac9cf19a29da8d2da13b1e6f8 /generic/tclStringObj.c | |
| parent | dace3996715c6a8f97b7c0a89e849df13c2be5f9 (diff) | |
| parent | 42725da7ba8157864eeb3c79a3cb3cfde0d8efb6 (diff) | |
| download | tcl-b33dac7519bc4a79f37f10c65a6a620ec9b0eee2.zip tcl-b33dac7519bc4a79f37f10c65a6a620ec9b0eee2.tar.gz tcl-b33dac7519bc4a79f37f10c65a6a620ec9b0eee2.tar.bz2 | |
Merge trunk
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( |