Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
| Comment: | Unbreak. |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA1: |
5047d3405029e7ba2602c84a4ff4df22 |
| User & Date: | stwo 2012-08-04 18:54:45 |
Context
|
2012-08-05
| ||
| 12:09 | Final part of result generation conversion (modulo any minor blunders) check-in: 1fb35ca910 user: dkf tags: trunk | |
|
2012-08-04
| ||
| 18:54 | Unbreak. check-in: 5047d34050 user: stwo tags: trunk | |
| 13:04 | more result generation conversion check-in: 6325d5dbea user: dkf tags: trunk | |
Changes
Changes to unix/tclLoadDl.c.
| ︙ | ︙ | |||
173 174 175 176 177 178 179 |
native = Tcl_DStringAppend(&newName, native, -1);
proc = dlsym(handle, native); /* INTL: Native. */
Tcl_DStringFree(&newName);
}
Tcl_DStringFree(&ds);
if (proc == NULL && interp != NULL) {
Tcl_SetObjResult(interp, Tcl_ObjPrintf(
| | | 173 174 175 176 177 178 179 180 181 182 183 184 185 186 187 |
native = Tcl_DStringAppend(&newName, native, -1);
proc = dlsym(handle, native); /* INTL: Native. */
Tcl_DStringFree(&newName);
}
Tcl_DStringFree(&ds);
if (proc == NULL && interp != NULL) {
Tcl_SetObjResult(interp, Tcl_ObjPrintf(
"cannot find symbol \"%s\": %s", symbol, dlerror()));
Tcl_SetErrorCode(interp, "TCL", "LOOKUP", "LOAD_SYMBOL", symbol,
NULL);
}
return proc;
}
/*
|
| ︙ | ︙ |