Differences From Artifact [d341f8f827]:

• File generic/tclStrToD.c — part of check-in [f10435bb91] at 2024-10-08 22:26:25 on branch core-8-branch — Fix [0439e1e1a3]: Slow detection of illegal expr argument (user: jan.nijtmans size: 142517) [more...]

To Artifact [9e2ba10610]:

• File generic/tclStrToD.c — part of check-in [cf4e367415] at 2024-10-09 16:05:29 on branch core-8-branch — Fix warning: warning C4047: 'function': 'char *' differs in levels of indirection from 'const char **' on Windows. Remove unneeded (char *) typecast in ckfree() usage (user: jan.nijtmans size: 142515)

1588
1589
1590
1591
1592
1593
1594
1595
1596
1597
1598
1599
1600
1601
1602

	if (interp != NULL) {
	    Tcl_Obj *msg = Tcl_ObjPrintf("expected %s but got ",
		    expected);
	    Tcl_Size argc;
	    const char **argv;
	    if ((TclMaxListLength(bytes, TCL_INDEX_NONE, NULL) > 1)
		    && Tcl_SplitList(NULL, bytes, &argc, &argv) == TCL_OK) {
		Tcl_Free(argv);
		Tcl_AppendToObj(msg, "a list", -1);
	    } else {
		Tcl_AppendToObj(msg, "\"", -1);
		Tcl_AppendLimitedToObj(msg, bytes, numBytes, 50, "");
		Tcl_AppendToObj(msg, "\"", -1);
		if (state == BAD_OCTAL) {
		    Tcl_AppendToObj(msg, " (looks like invalid octal number)", -1);

|

1588
1589
1590
1591
1592
1593
1594
1595
1596
1597
1598
1599
1600
1601
1602

	if (interp != NULL) {
	    Tcl_Obj *msg = Tcl_ObjPrintf("expected %s but got ",
		    expected);
	    Tcl_Size argc;
	    const char **argv;
	    if ((TclMaxListLength(bytes, TCL_INDEX_NONE, NULL) > 1)
		    && Tcl_SplitList(NULL, bytes, &argc, &argv) == TCL_OK) {
		ckfree(argv);
		Tcl_AppendToObj(msg, "a list", -1);
	    } else {
		Tcl_AppendToObj(msg, "\"", -1);
		Tcl_AppendLimitedToObj(msg, bytes, numBytes, 50, "");
		Tcl_AppendToObj(msg, "\"", -1);
		if (state == BAD_OCTAL) {
		    Tcl_AppendToObj(msg, " (looks like invalid octal number)", -1);