diff options
Diffstat (limited to 'generic/tclStringObj.c')
| -rw-r--r-- | generic/tclStringObj.c | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/generic/tclStringObj.c b/generic/tclStringObj.c index 099bb27..b3937e2 100644 --- a/generic/tclStringObj.c +++ b/generic/tclStringObj.c @@ -409,7 +409,7 @@ Tcl_GetCharLength( (objPtr->typePtr == &tclExprCodeType) || (objPtr->typePtr == &tclFsPathType) || (objPtr->typePtr == &tclIndexType) || - /*(objPtr->typePtr == &tclListType) || This one causes cmdIL-1.29 failure */ + (objPtr->typePtr == &tclListType) || (objPtr->typePtr == &tclNsNameType) || (objPtr->typePtr == &tclProcBodyType)) { /* Try to convert object to String type, but remember old intRep. */ @@ -417,6 +417,7 @@ Tcl_GetCharLength( Tcl_ObjType *prevtype = objPtr->typePtr; void *prevdata = objPtr->internalRep.twoPtrValue.ptr1; + (void)Tcl_GetString(objPtr); objPtr->internalRep.twoPtrValue.ptr1 = objPtr->internalRep.twoPtrValue.ptr2; objPtr->typePtr = objPtr->internalRep.twoPtrValue.ptr1 ? &tclStringType: NULL; objPtr->internalRep.twoPtrValue.ptr2 = NULL; |