Imported Tk 8.6.9
This commit is contained in:
@@ -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);
|
||||
}
|
||||
|
||||
/*
|
||||
|
||||
Reference in New Issue
Block a user