Differences From Artifact [d97f8b0c8b]:

• File generic/tclStrToD.c — part of check-in [dc49f7f0a3] at 2025-05-29 08:13:56 on branch tcl-unreachable — more unreachable/fallthrough marks (user: dkf size: 142133) [more...]

To Artifact [398d954b68]:

• File generic/tclStrToD.c — part of check-in [70b6205548] at 2025-07-12 20:58:00 on branch c-std-update — Define TclPrintfResult() for common pattern in error generation. (user: dkf size: 142116)

4829
4830
4831
4832
4833
4834
4835
4836
4837
4838
4839
4840
4841
4842
4843

     * Infinite values can't convert to bignum.
     */

    if (isinf(d)) {
	if (interp != NULL) {
	    const char *s = "integer value too large to represent";

	    Tcl_SetObjResult(interp, Tcl_NewStringObj(s, -1));
	    Tcl_SetErrorCode(interp, "ARITH", "IOVERFLOW", s, (char *)NULL);
	}
	return TCL_ERROR;
    }

    fract = frexp(d, &expt);
    if (expt <= 0) {

|

4829
4830
4831
4832
4833
4834
4835
4836
4837
4838
4839
4840
4841
4842
4843

     * Infinite values can't convert to bignum.
     */

    if (isinf(d)) {
	if (interp != NULL) {
	    const char *s = "integer value too large to represent";

	    TclPrintfResult(interp, "%s", s);
	    Tcl_SetErrorCode(interp, "ARITH", "IOVERFLOW", s, (char *)NULL);
	}
	return TCL_ERROR;
    }

    fract = frexp(d, &expt);
    if (expt <= 0) {