diff options
| author | dgp <dgp@users.sourceforge.net> | 2016-03-23 04:50:21 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2016-03-23 04:50:21 (GMT) |
| commit | 5e4bc7c4f34f16705d4b893b157ae9c068db6cec (patch) | |
| tree | 014531847a0b5225798ae91072804b42aaa1b1f7 | |
| parent | 9236f668eaeaf66917020bb669776465f6dba1e9 (diff) | |
| download | tcl-5e4bc7c4f34f16705d4b893b157ae9c068db6cec.zip tcl-5e4bc7c4f34f16705d4b893b157ae9c068db6cec.tar.gz tcl-5e4bc7c4f34f16705d4b893b157ae9c068db6cec.tar.bz2 | |
Make sure no path emerges to write on tclEmptyStringRep.
| -rw-r--r-- | generic/tclObj.c | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/generic/tclObj.c b/generic/tclObj.c index 7fe0293..4f7194b 100644 --- a/generic/tclObj.c +++ b/generic/tclObj.c @@ -1765,6 +1765,7 @@ Tcl_InitStringRep( } } else { objPtr->bytes = tclEmptyStringRep; + return NULL; } } else { /* objPtr->bytes != NULL bytes == NULL - Truncate */ |