diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2023-07-12 15:12:20 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2023-07-12 15:12:20 (GMT) |
| commit | 6b299f271e610643149ded1419eba06d8adffd13 (patch) | |
| tree | 634c31079c0071f86657fe7f9916aa05bfdc80dc | |
| parent | 6535d1954289775fe4a64734c36e299b9fef0f81 (diff) | |
| parent | 74ba5e43366e0389ca88d043c0041a0a18fd9afa (diff) | |
| download | tcl-6b299f271e610643149ded1419eba06d8adffd13.zip tcl-6b299f271e610643149ded1419eba06d8adffd13.tar.gz tcl-6b299f271e610643149ded1419eba06d8adffd13.tar.bz2 | |
Merge 8.7
| -rw-r--r-- | generic/tclObj.c | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/generic/tclObj.c b/generic/tclObj.c index 1fe667a..8e6b5bb 100644 --- a/generic/tclObj.c +++ b/generic/tclObj.c @@ -1662,9 +1662,9 @@ int SetDuplicatePureObj( if (bytes && (dupPtr->typePtr == NULL || dupPtr->typePtr->updateStringProc == NULL || useTypePtr == &tclStringType - || typePtr == &tclDoubleType - || typePtr == &tclIntType - || typePtr == &tclIndexType + || useTypePtr == &tclDoubleType + || useTypePtr == &tclIntType + || useTypePtr == &tclIndexType ) ) { if (!TclAttemptInitStringRep(dupPtr, bytes, objPtr->length)) { |