diff options
| -rw-r--r-- | generic/tclObj.c | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/generic/tclObj.c b/generic/tclObj.c index 731196f..bd1055e 100644 --- a/generic/tclObj.c +++ b/generic/tclObj.c @@ -1675,10 +1675,10 @@ int SetDuplicatePureObj( if (bytes && (dupPtr->typePtr == NULL || dupPtr->typePtr->updateStringProc == NULL - || typePtr == &tclUniCharStringType - || typePtr == &tclDoubleType - || typePtr == &tclIntType - || typePtr == &tclIndexType + || objPtr->typePtr == &tclUniCharStringType + || objPtr->typePtr == &tclDoubleType + || objPtr->typePtr == &tclIntType + || objPtr->typePtr == &tclIndexType ) ) { if (!TclAttemptInitStringRep(dupPtr, bytes, objPtr->length)) { |