Differences From Artifact [247a38159f]:

• File unix/tclLoadNext.c — part of check-in [a3d7ddd732] at 2020-11-06 14:58:51 on branch main — Merge 8.7 (user: jan.nijtmans size: 4861) [more...]

To Artifact [ac1423a5df]:

• File unix/tclLoadNext.c — part of check-in [b8cccc59e2] at 2020-12-04 15:12:19 on branch bug-ea39ab591e — Merge 9.0 (user: jan.nijtmans size: 4861) [more...]

129
130
131
132
133
134
135
136
137
138
139
140
141
142
143

static void *
FindSymbol(
    Tcl_Interp *interp,
    Tcl_LoadHandle loadHandle,
    const char *symbol)
{
    Tcl_PackageInitProc *proc = NULL;

    if (symbol) {
	char sym[strlen(symbol) + 2];

	sym[0] = '_';
	sym[1] = 0;
	strcat(sym, symbol);

|

129
130
131
132
133
134
135
136
137
138
139
140
141
142
143

static void *
FindSymbol(
    Tcl_Interp *interp,
    Tcl_LoadHandle loadHandle,
    const char *symbol)
{
    Tcl_LibraryInitProc *proc = NULL;

    if (symbol) {
	char sym[strlen(symbol) + 2];

	sym[0] = '_';
	sym[1] = 0;
	strcat(sym, symbol);