From d59509dee2c55942e56ff0f8b540d00c78a99b86 Mon Sep 17 00:00:00 2001 From: "jan.nijtmans" Date: Thu, 16 Jan 2020 14:16:48 +0000 Subject: Proposed fix for [8cd2fe7474]: "unload" command Bug (when handling multiple libs) --- generic/tclLoad.c | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/generic/tclLoad.c b/generic/tclLoad.c index f1bd248..dfa657e 100644 --- a/generic/tclLoad.c +++ b/generic/tclLoad.c @@ -871,7 +871,7 @@ Tcl_UnloadObjCmd( for (ipPrevPtr = ipPtr; ipPtr != NULL; ipPrevPtr = ipPtr, ipPtr = ipPtr->nextPtr) { - if (ipPtr->pkgPtr == pkgPtr) { + if (ipPtr->pkgPtr == defaultPtr) { ipPrevPtr->nextPtr = ipPtr->nextPtr; break; } -- cgit v0.12 From eb08a10e38e909d85338f6375638efa08bf0c639 Mon Sep 17 00:00:00 2001 From: "jan.nijtmans" Date: Fri, 17 Jan 2020 08:51:38 +0000 Subject: Fix [8cd2fe7474]: "unload" command Bug (when handling multiple libs) --- generic/tclLoad.c | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/generic/tclLoad.c b/generic/tclLoad.c index ac863b9..2891884 100644 --- a/generic/tclLoad.c +++ b/generic/tclLoad.c @@ -834,7 +834,7 @@ Tcl_UnloadObjCmd( for (ipPrevPtr = ipPtr; ipPtr != NULL; ipPrevPtr = ipPtr, ipPtr = ipPtr->nextPtr) { - if (ipPtr->pkgPtr == pkgPtr) { + if (ipPtr->pkgPtr == defaultPtr) { ipPrevPtr->nextPtr = ipPtr->nextPtr; break; } -- cgit v0.12