Differences From Artifact [e4bf70fd6d]:

• File generic/tclStrToD.c — part of check-in [60df467246] at 2022-02-17 17:30:13 on branch core-8-branch — Deprecate internal macro's TclIsInfinite() and TclIsNan(), since C99 has isinf() and isnan() (user: jan.nijtmans size: 141417) [more...]

To Artifact [8741cd0e64]:

• File generic/tclStrToD.c — part of check-in [eaf93525a5] at 2022-05-17 09:32:51 on branch core-8-branch — Rename macro's TclListObjGetElements -> TclListObjGetElementsM and TclListObjLength -> TclListObjLengthM (prevent conflict with TIP #616) (user: jan.nijtmans size: 141418) [more...]

555
556
557
558
559
560
561
562
563
564
565
566
567
568
569

	    if (TclHasInternalRep(objPtr, &tclDictType)) {
		/* A dict can never be a (single) number */
		return TCL_ERROR;
	    }
	    if (TclHasInternalRep(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;
		}
	    }
	}
	bytes = TclGetString(objPtr);
    }

|

555
556
557
558
559
560
561
562
563
564
565
566
567
568
569

	    if (TclHasInternalRep(objPtr, &tclDictType)) {
		/* A dict can never be a (single) number */
		return TCL_ERROR;
	    }
	    if (TclHasInternalRep(objPtr, &tclListType)) {
		int length;
		/* A list can only be a (single) number if its length == 1 */
		TclListObjLengthM(NULL, objPtr, &length);
		if (length != 1) {
		    return TCL_ERROR;
		}
	    }
	}
	bytes = TclGetString(objPtr);
    }