Tcl Source Code

Check-in [5fbbfc2a80]
Login

Many hyperlinks are disabled.
Use anonymous login to enable hyperlinks.

Overview
Comment:style fix
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1: 5fbbfc2a809c5b83dbd6a813f21a6a81cca470a8
User & Date: jan.nijtmans 2012-11-12 07:53:34
Context
2012-11-12
23:33
merge mark check-in: addeb1588f user: dgp tags: trunk
10:03
merge trunk check-in: af3e5de5a0 user: jan.nijtmans tags: bug-3562640
08:01
merge trunk.

doc fix

check-in: 50ce5a659d user: jan.nijtmans tags: frq-3579001
07:53
style fix check-in: 5fbbfc2a80 user: jan.nijtmans tags: trunk
2012-11-10
19:24
added forgotten Changelog entry check-in: d5f32ab609 user: mig tags: trunk
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to unix/tclLoadNext.c.

130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
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);
	rld_lookup(NULL, sym, (unsigned long *) &proc);
    }







|
|







130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
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);
	rld_lookup(NULL, sym, (unsigned long *) &proc);
    }