Fossil SCM
Fix missing argument check for pxDeleteInterp in the Tcl integration module.
Commit
ee9d2bfb316a63634e2e37ab3a27ef28db0cca2b
Parent
fe0bb727165ca0e…
1 file changed
+1
-1
+1
-1
| --- src/th_tcl.c | ||
| +++ src/th_tcl.c | ||
| @@ -594,11 +594,11 @@ | ||
| 594 | 594 | tcl_DeleteInterpProc **pxDeleteInterp |
| 595 | 595 | ){ |
| 596 | 596 | #if defined(USE_TCL_STUBS) |
| 597 | 597 | char fileName[] = TCL_LIBRARY_NAME; |
| 598 | 598 | #endif /* defined(USE_TCL_STUBS) */ |
| 599 | - if( !pLibrary || !pxFindExecutable || !pxCreateInterp ){ | |
| 599 | + if( !pLibrary || !pxFindExecutable || !pxCreateInterp || !pxDeleteInterp ){ | |
| 600 | 600 | Th_ErrorMessage(interp, |
| 601 | 601 | "invalid Tcl loader argument(s)", (const char *)"", 0); |
| 602 | 602 | return TH_ERROR; |
| 603 | 603 | } |
| 604 | 604 | #if defined(USE_TCL_STUBS) |
| 605 | 605 |
| --- src/th_tcl.c | |
| +++ src/th_tcl.c | |
| @@ -594,11 +594,11 @@ | |
| 594 | tcl_DeleteInterpProc **pxDeleteInterp |
| 595 | ){ |
| 596 | #if defined(USE_TCL_STUBS) |
| 597 | char fileName[] = TCL_LIBRARY_NAME; |
| 598 | #endif /* defined(USE_TCL_STUBS) */ |
| 599 | if( !pLibrary || !pxFindExecutable || !pxCreateInterp ){ |
| 600 | Th_ErrorMessage(interp, |
| 601 | "invalid Tcl loader argument(s)", (const char *)"", 0); |
| 602 | return TH_ERROR; |
| 603 | } |
| 604 | #if defined(USE_TCL_STUBS) |
| 605 |
| --- src/th_tcl.c | |
| +++ src/th_tcl.c | |
| @@ -594,11 +594,11 @@ | |
| 594 | tcl_DeleteInterpProc **pxDeleteInterp |
| 595 | ){ |
| 596 | #if defined(USE_TCL_STUBS) |
| 597 | char fileName[] = TCL_LIBRARY_NAME; |
| 598 | #endif /* defined(USE_TCL_STUBS) */ |
| 599 | if( !pLibrary || !pxFindExecutable || !pxCreateInterp || !pxDeleteInterp ){ |
| 600 | Th_ErrorMessage(interp, |
| 601 | "invalid Tcl loader argument(s)", (const char *)"", 0); |
| 602 | return TH_ERROR; |
| 603 | } |
| 604 | #if defined(USE_TCL_STUBS) |
| 605 |