Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
Comment: | Followup to [6325d5dbeac6f91d28d6]. dlerror() may return NULL. Fixed the code which wasn't prepared to deal with that. |
---|---|
Downloads: | Tarball | ZIP archive | SQL archive |
Timelines: | family | ancestors | descendants | both | trunk |
Files: | files | file ages | folders |
SHA1: |
d17e59a33e59738582f4feadae066683 |
User & Date: | andreask 2012-08-27 17:12:06 |
Context
2012-09-02
| ||
07:21 | merge trunk check-in: 1ed34b8810 user: dkf tags: dkf-http-cookies | |
2012-08-30
| ||
18:46 | Update changes for 8.6b3 check-in: b5c1fbee86 user: dgp tags: trunk | |
2012-08-29
| ||
06:31 | proposed solution for [Bug 3562640]: problem loading Thread in 8.5, when compiled for 8.6 check-in: 6b9d54bfeb user: jan.nijtmans tags: bug-3562640 | |
2012-08-28
| ||
13:04 | merge trunk check-in: 3875099862 user: dgp tags: core-8-6-b3-rc | |
2012-08-27
| ||
17:24 | Commit of Harald Oehlmann's TIP 404 patch without TIP 399 pieces and with some added documentation. ... check-in: b7c4598501 user: dkf tags: tip-404 | |
17:12 | Followup to [6325d5dbeac6f91d28d6]. dlerror() may return NULL. Fixed the code which wasn't prepared ... check-in: d17e59a33e user: andreask tags: trunk | |
2012-08-26
| ||
08:20 | minor: tidy up formatting check-in: 7cbc87061e user: dkf tags: trunk | |
Changes
Changes to unix/tclLoadDl.c.
︙ | ︙ | |||
172 173 174 175 176 177 178 179 | TclDStringAppendLiteral(&newName, "_"); 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( | > > > > > > | | 172 173 174 175 176 177 178 179 180 181 182 183 184 185 186 187 188 189 190 191 192 193 | TclDStringAppendLiteral(&newName, "_"); native = Tcl_DStringAppend(&newName, native, -1); proc = dlsym(handle, native); /* INTL: Native. */ Tcl_DStringFree(&newName); } Tcl_DStringFree(&ds); if (proc == NULL && interp != NULL) { const char *errorStr = dlerror(); if (!errorStr) { errorStr = "unknown"; } Tcl_SetObjResult(interp, Tcl_ObjPrintf( "cannot find symbol \"%s\": %s", symbol, errorStr)); Tcl_SetErrorCode(interp, "TCL", "LOOKUP", "LOAD_SYMBOL", symbol, NULL); } return proc; } /* |
︙ | ︙ |