Diff
Not logged in

Differences From Artifact [adc795b01b]:

To Artifact [99698cb38b]:


535
536
537
538
539
540
541
542

543
544
545
546

547
548
549
550
551
552
553
535
536
537
538
539
540
541

542
543
544
545

546
547
548
549
550
551
552
553







-
+



-
+







    /*
     * Initialize bytes to start of the object's string rep if the caller
     * didn't pass anything else.
     */

    if (bytes == NULL) {
	if (interp == NULL && endPtrPtr == NULL) {
	    if (objPtr->typePtr == &tclDictType) {
	    if (TclHasIntRep(objPtr, &tclDictType)) {
		/* A dict can never be a (single) number */
		return TCL_ERROR;
	    }
	    if (objPtr->typePtr == &tclListType) {
	    if (TclHasIntRep(objPtr, &tclListType)) {
		int length;
		/* A list can only be a (single) number if its length == 1 */
		TclListObjLength(NULL, objPtr, &length);
		if (length != 1) {
		    return TCL_ERROR;
		}
	    }