diff options
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); + } } /* |