diff options
| author | dgp <dgp@users.sourceforge.net> | 2016-10-12 17:31:48 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2016-10-12 17:31:48 (GMT) |
| commit | 9fde0d3e5ad6558c526c51a8dc07fae6835cf30d (patch) | |
| tree | a61909701c39bd1bfbbbb42f1c0620ff83794a1f | |
| parent | aec96db0167170b47c7f0dd132fd530354aa4ac7 (diff) | |
| download | tcl-9fde0d3e5ad6558c526c51a8dc07fae6835cf30d.zip tcl-9fde0d3e5ad6558c526c51a8dc07fae6835cf30d.tar.gz tcl-9fde0d3e5ad6558c526c51a8dc07fae6835cf30d.tar.bz2 | |
Correct improper NULL return from initializing Tcl_InitStringRep(o, b, 0).
Go ahead and return pointer to space where 0 bytes can be written.
| -rw-r--r-- | generic/tclObj.c | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/generic/tclObj.c b/generic/tclObj.c index 387f92b..412ecfc 100644 --- a/generic/tclObj.c +++ b/generic/tclObj.c @@ -1766,8 +1766,7 @@ Tcl_InitStringRep( objPtr->length = (int) numBytes; } } else { - objPtr->bytes = tclEmptyStringRep; - return NULL; + TclInitStringRep(objPtr, NULL, 0); } } else { /* objPtr->bytes != NULL bytes == NULL - Truncate */ |