diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2023-07-13 15:42:07 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2023-07-13 15:42:07 (GMT) |
| commit | 55d08599b5103450447ab62c3d1ceea78dac86c5 (patch) | |
| tree | 312c16243e1dc321080b746173028f06c9c609f1 /generic/tclObj.c | |
| parent | a123c440eb5424ec90b296c31b74ec3caa3b1a7b (diff) | |
| download | tcl-55d08599b5103450447ab62c3d1ceea78dac86c5.zip tcl-55d08599b5103450447ab62c3d1ceea78dac86c5.tar.gz tcl-55d08599b5103450447ab62c3d1ceea78dac86c5.tar.bz2 | |
Backport changes in tclListObj.c from Tcl 9.0
Diffstat (limited to 'generic/tclObj.c')
| -rw-r--r-- | generic/tclObj.c | 3 |
1 files changed, 0 insertions, 3 deletions
diff --git a/generic/tclObj.c b/generic/tclObj.c index bd1055e..96ad9e6 100644 --- a/generic/tclObj.c +++ b/generic/tclObj.c @@ -1676,9 +1676,6 @@ int SetDuplicatePureObj( if (bytes && (dupPtr->typePtr == NULL || dupPtr->typePtr->updateStringProc == NULL || objPtr->typePtr == &tclUniCharStringType - || objPtr->typePtr == &tclDoubleType - || objPtr->typePtr == &tclIntType - || objPtr->typePtr == &tclIndexType ) ) { if (!TclAttemptInitStringRep(dupPtr, bytes, objPtr->length)) { |