summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authordgp <dgp@users.sourceforge.net>2016-03-24 13:50:59 (GMT)
committerdgp <dgp@users.sourceforge.net>2016-03-24 13:50:59 (GMT)
commit7a75e44abbb2d5abaa0313f5edf9d761810ae748 (patch)
treeb8d1ea12d528988567e315fcf7fbbf331870cc26
parent15a2f423f0ea1de799f88ff78bcc8237e0afb5c8 (diff)
downloadtcl-7a75e44abbb2d5abaa0313f5edf9d761810ae748.zip
tcl-7a75e44abbb2d5abaa0313f5edf9d761810ae748.tar.gz
tcl-7a75e44abbb2d5abaa0313f5edf9d761810ae748.tar.bz2
TclInitStringRep() already knows about tclEmptyStringRep.
-rw-r--r--generic/tclObj.c2
-rw-r--r--generic/tclStringObj.c2
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);