532
533
534
535
536
537
538
539
540
541
542
543
544
545
546
|
532
533
534
535
536
537
538
539
540
541
542
543
544
545
546
|
-
+
|
}
/*
*----------------------------------------------------------------------
*
* 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:
* A standard Tcl result.
*
* Side effects:
* See the user documentation.
|
750
751
752
753
754
755
756
757
758
759
760
761
762
763
|
750
751
752
753
754
755
756
757
758
759
760
761
762
763
764
765
766
767
768
769
770
771
772
773
774
775
776
777
778
779
780
|
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
|
if (!complain && (code != TCL_OK)) {
code = TCL_OK;
Tcl_ResetResult(interp);
}
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,
Tcl_Interp *target,
LoadedLibrary *libraryPtr,
int keepLibrary,
const char *fullFileName,
|
870
871
872
873
874
875
876
877
878
879
880
881
882
883
884
885
886
887
|
887
888
889
890
891
892
893
894
895
896
897
898
899
900
901
902
|
-
+
-
-
|
if (IsStatic(libraryPtr)) {
goto done;
}
/*
* The unload function executed fine. Examine the reference count to see
* The unload function was called succesfully.
* if we unload the DLL.
|
903
904
905
906
907
908
909
910
911
912
913
914
915
916
917
|
918
919
920
921
922
923
924
925
926
927
928
929
930
931
932
|
-
+
|
}
trustedRefCount = libraryPtr->interpRefCount;
safeRefCount = libraryPtr->safeInterpRefCount;
Tcl_MutexUnlock(&libraryMutex);
code = TCL_OK;
if (libraryPtr->safeInterpRefCount <= 0 && libraryPtr->interpRefCount <= 0
&& !keepLibrary) {
&& (unloadProc != NULL) && !keepLibrary) {
/*
* Unload the shared library from the application memory...
*/
#if defined(TCL_UNLOAD_DLLS) || defined(_WIN32)
/*
* Some Unix dlls are poorly behaved - registering things like atexit
|