Imported Tk 8.6.9

This commit is contained in:
Steve Dower
2018-12-11 10:05:28 -08:00
parent 753ac6b037
commit 5ba5cbc9af
184 changed files with 6223 additions and 1994 deletions

View File

@@ -2992,16 +2992,13 @@ static int
ObjectIsEmpty(
Tcl_Obj *objPtr) /* Object to test. May be NULL. */
{
int length;
if (objPtr == NULL) {
return 1;
}
if (objPtr->bytes != NULL) {
return (objPtr->length == 0);
if (objPtr->bytes == NULL) {
Tcl_GetString(objPtr);
}
(void)Tcl_GetStringFromObj(objPtr, &length);
return (length == 0);
return (objPtr->length == 0);
}
/*