diff options
| author | sebres <sebres@users.sourceforge.net> | 2024-07-16 15:06:34 (GMT) |
|---|---|---|
| committer | sebres <sebres@users.sourceforge.net> | 2024-07-16 15:06:34 (GMT) |
| commit | dd441fee4c4aa2262e549032ad1cf4d7daed08e9 (patch) | |
| tree | ec970ab5fcb62277be59e2bc1b50e181b07f164a /generic/tclLoad.c | |
| parent | c5864512076cb6b2d284d711f4c998f773541d28 (diff) | |
| parent | 4ea4f7a89c5b1f0fb261875384806d8d9d098333 (diff) | |
| download | tcl-dd441fee4c4aa2262e549032ad1cf4d7daed08e9.zip tcl-dd441fee4c4aa2262e549032ad1cf4d7daed08e9.tar.gz tcl-dd441fee4c4aa2262e549032ad1cf4d7daed08e9.tar.bz2 | |
merge 8.7
Diffstat (limited to 'generic/tclLoad.c')
| -rw-r--r-- | generic/tclLoad.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/generic/tclLoad.c b/generic/tclLoad.c index 2921a3d..37d75d3 100644 --- a/generic/tclLoad.c +++ b/generic/tclLoad.c @@ -1196,7 +1196,7 @@ LoadCleanupProc( InterpLibrary *ipPtr = (InterpLibrary *)clientData, *nextPtr; LoadedLibrary *libraryPtr; - do { + while (ipPtr) { libraryPtr = ipPtr->libraryPtr; UnloadLibrary(interp, interp, libraryPtr, 0, "", 1); /* UnloadLibrary doesn't free it by interp delete, so do it here and @@ -1204,7 +1204,7 @@ LoadCleanupProc( nextPtr = ipPtr->nextPtr; Tcl_Free(ipPtr); ipPtr = nextPtr; - } while (ipPtr); + } } /* |