Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
| Comment: | Fix missing argument check for pxDeleteInterp in the Tcl integration module. |
|---|---|
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA1: |
ee9d2bfb316a63634e2e37ab3a27ef28 |
| User & Date: | mistachkin 2013-09-16 23:17:34.577 |
Context
|
2013-09-16
| ||
| 23:38 | Support the ability to determine at runtime if the private stubs mechanism was used for Tcl. check-in: e10d117125 user: mistachkin tags: trunk | |
| 23:17 | Fix missing argument check for pxDeleteInterp in the Tcl integration module. check-in: ee9d2bfb31 user: mistachkin tags: trunk | |
| 23:06 | Enable use of the private Tcl stubs mechanism by default in the custom MinGW makefile. check-in: fe0bb72716 user: mistachkin tags: trunk | |
Changes
Changes to src/th_tcl.c.
| ︙ | ︙ | |||
592 593 594 595 596 597 598 |
tcl_FindExecutableProc **pxFindExecutable,
tcl_CreateInterpProc **pxCreateInterp,
tcl_DeleteInterpProc **pxDeleteInterp
){
#if defined(USE_TCL_STUBS)
char fileName[] = TCL_LIBRARY_NAME;
#endif /* defined(USE_TCL_STUBS) */
| | | 592 593 594 595 596 597 598 599 600 601 602 603 604 605 606 |
tcl_FindExecutableProc **pxFindExecutable,
tcl_CreateInterpProc **pxCreateInterp,
tcl_DeleteInterpProc **pxDeleteInterp
){
#if defined(USE_TCL_STUBS)
char fileName[] = TCL_LIBRARY_NAME;
#endif /* defined(USE_TCL_STUBS) */
if( !pLibrary || !pxFindExecutable || !pxCreateInterp || !pxDeleteInterp ){
Th_ErrorMessage(interp,
"invalid Tcl loader argument(s)", (const char *)"", 0);
return TH_ERROR;
}
#if defined(USE_TCL_STUBS)
do {
void *library = dlopen(fileName, RTLD_NOW | RTLD_GLOBAL);
|
| ︙ | ︙ |