Differences From Artifact [72d65de862]:

• File unix/tclLoadNext.c — part of check-in [5fbbfc2a80] at 2012-11-12 07:53:34 on branch trunk — style fix (user: jan.nijtmans size: 5719) [more...]

To Artifact [ac0c2f280c]:

• File unix/tclLoadNext.c — part of check-in [e749719636] at 2024-06-18 22:07:14 on branch core-8-6-branch — Backport some code cleanup from 8.7/9.0. Fix indenting (user: jan.nijtmans size: 5727) [more...]

142
143
144
145
146
147
148
149
150
151
152
153
154
155
156

	sym[1] = 0;
	strcat(sym, symbol);
	rld_lookup(NULL, sym, (unsigned long *) &proc);
    }
    if (proc == NULL && interp != NULL) {
	Tcl_SetObjResult(interp, Tcl_ObjPrintf(
		"cannot find symbol \"%s\"", symbol));
	Tcl_SetErrorCode(interp, "TCL", "LOOKUP", "LOAD_SYMBOL", symbol, NULL);
    }
    return proc;
}

/*
 *----------------------------------------------------------------------
 *

|

142
143
144
145
146
147
148
149
150
151
152
153
154
155
156

	sym[1] = 0;
	strcat(sym, symbol);
	rld_lookup(NULL, sym, (unsigned long *) &proc);
    }
    if (proc == NULL && interp != NULL) {
	Tcl_SetObjResult(interp, Tcl_ObjPrintf(
		"cannot find symbol \"%s\"", symbol));
	Tcl_SetErrorCode(interp, "TCL", "LOOKUP", "LOAD_SYMBOL", symbol, (char *)NULL);
    }
    return proc;
}

/*
 *----------------------------------------------------------------------
 *