diff options
author | dgp <dgp@users.sourceforge.net> | 2016-03-24 13:50:59 (GMT) |
---|---|---|
committer | dgp <dgp@users.sourceforge.net> | 2016-03-24 13:50:59 (GMT) |
commit | 7a75e44abbb2d5abaa0313f5edf9d761810ae748 (patch) | |
tree | b8d1ea12d528988567e315fcf7fbbf331870cc26 | |
parent | 15a2f423f0ea1de799f88ff78bcc8237e0afb5c8 (diff) | |
download | tcl-7a75e44abbb2d5abaa0313f5edf9d761810ae748.zip tcl-7a75e44abbb2d5abaa0313f5edf9d761810ae748.tar.gz tcl-7a75e44abbb2d5abaa0313f5edf9d761810ae748.tar.bz2 |
TclInitStringRep() already knows about tclEmptyStringRep.
-rw-r--r-- | generic/tclObj.c | 2 | ||||
-rw-r--r-- | generic/tclStringObj.c | 2 |
2 files changed, 2 insertions, 2 deletions
diff --git a/generic/tclObj.c b/generic/tclObj.c index d1fde0e..52be4cc 100644 --- a/generic/tclObj.c +++ b/generic/tclObj.c @@ -3505,7 +3505,7 @@ GetBignumFromObj( objPtr->internalRep.twoPtrValue.ptr2 = NULL; objPtr->typePtr = NULL; if (objPtr->bytes == NULL) { - TclInitStringRep(objPtr, tclEmptyStringRep, 0); + TclInitStringRep(objPtr, NULL, 0); } } return TCL_OK; diff --git a/generic/tclStringObj.c b/generic/tclStringObj.c index 11a57e9..f867b76 100644 --- a/generic/tclStringObj.c +++ b/generic/tclStringObj.c @@ -3026,7 +3026,7 @@ UpdateStringOfString( String *stringPtr = GET_STRING(objPtr); if (stringPtr->numChars == 0) { - TclInitStringRep(objPtr, tclEmptyStringRep, 0); + TclInitStringRep(objPtr, NULL, 0); } else { (void) ExtendStringRepWithUnicode(objPtr, stringPtr->unicode, stringPtr->numChars); |