diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2022-03-23 16:57:23 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2022-03-23 16:57:23 (GMT) |
| commit | a07848357580733a6e4cb3fc559fb9267a2b974f (patch) | |
| tree | 3b44816c8597b000abe39120b5108c9dd5cd24f2 /generic/tclLoad.c | |
| parent | 0726ab17a254f87dcee64add378c07c5f893bb7c (diff) | |
| parent | 1875490189bc14dee3a21de38f02e62920322850 (diff) | |
| download | tcl-a07848357580733a6e4cb3fc559fb9267a2b974f.zip tcl-a07848357580733a6e4cb3fc559fb9267a2b974f.tar.gz tcl-a07848357580733a6e4cb3fc559fb9267a2b974f.tar.bz2 | |
Merge 9.0. More progress
Diffstat (limited to 'generic/tclLoad.c')
| -rw-r--r-- | generic/tclLoad.c | 25 |
1 files changed, 20 insertions, 5 deletions
diff --git a/generic/tclLoad.c b/generic/tclLoad.c index 8fc10ac..23372d9 100644 --- a/generic/tclLoad.c +++ b/generic/tclLoad.c @@ -536,7 +536,7 @@ Tcl_LoadObjCmd( * * Tcl_UnloadObjCmd -- * - * This function is invoked to process the "unload" Tcl command. See the + * Implements the the "unload" Tcl command. See the * user documentation for details on what it does. * * Results: @@ -754,6 +754,23 @@ Tcl_UnloadObjCmd( return code; } + +/* + *---------------------------------------------------------------------- + * + * UnloadLibrary -- + * + * Unloads a library from an interpreter, and also from the process if it + * is unloadable, i.e. if it provides an "unload" function. + * + * Results: + * A standard Tcl result. + * + * Side effects: + * See description. + * + *---------------------------------------------------------------------- + */ static int UnloadLibrary( Tcl_Interp *interp, @@ -874,11 +891,9 @@ UnloadLibrary( } /* - * The unload function executed fine. Examine the reference count to see - * if we unload the DLL. + * The unload function was called succesfully. */ - Tcl_MutexLock(&libraryMutex); if (Tcl_IsSafe(target)) { libraryPtr->safeInterpRefCount--; @@ -907,7 +922,7 @@ UnloadLibrary( code = TCL_OK; if (libraryPtr->safeInterpRefCount <= 0 && libraryPtr->interpRefCount <= 0 - && !keepLibrary) { + && (unloadProc != NULL) && !keepLibrary) { /* * Unload the shared library from the application memory... */ |