Differences From Artifact [868e44ce27]:

• File generic/tclIOSock.c — part of check-in [3a60363aa1] at 2024-05-13 15:41:44 on branch main — Clean up a lot of small whitespace issues This is the dullest commit ever. Sorry. (user: dkf size: 8580)

To Artifact [c96db25b22]:

• File generic/tclIOSock.c — part of check-in [0b65fb9e0c] at 2024-05-14 16:06:01 on branch result-helpers — Add helper macros TclSetResult and TclPrintfResult (user: dkf size: 8551)

88
89
90
91
92
93
94
95
96

97
98
99
100
101
102
103

88
89
90
91
92
93
94


95
96
97
98
99
100
101
102

-
-
+

	    return TCL_OK;
	}
    }
    if (Tcl_GetInt(interp, string, portPtr) != TCL_OK) {
	return TCL_ERROR;
    }
    if (*portPtr > 0xFFFF) {
	Tcl_SetObjResult(interp, Tcl_NewStringObj(
		"couldn't open socket: port number too high", -1));
	TclSetResult(interp, "couldn't open socket: port number too high");
	return TCL_ERROR;
    }
    return TCL_OK;
}

/*
 *----------------------------------------------------------------------