Differences From Artifact [f6ecd7cfcd]:

• File generic/tclIOSock.c — part of check-in [8d3ada78be] at 2024-11-21 21:01:33 on branch main — Change TclpLoadMemoryGetBuffer/TclpLoadMemory signature using size_t/Tcl_Size (user: jan.nijtmans size: 8573) [more...]

To Artifact [f405f8ba85]:

• File generic/tclIOSock.c — part of check-in [665eb99f69] at 2025-01-10 13:01:33 on branch dkf-c11-features — Add TclPrintfResult() for easy error message generation (user: dkf size: 8547)

88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103

	    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));
	return TCL_ERROR;
    }
    return TCL_OK;
}

/*
 *----------------------------------------------------------------------

<
|

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) {

	TclPrintfResult(interp, "couldn't open socket: port number too high");
	return TCL_ERROR;
    }
    return TCL_OK;
}

/*
 *----------------------------------------------------------------------