Differences From Artifact [bdc0079743]:

• File generic/tclLoad.c — part of check-in [5ae46a0093] at 2017-06-08 08:26:58 on branch rfe-6c0d7aec67 — Better UTF-8 surrogate handling, only functional when TCL_UTF_MAX>3 (user: jan.nijtmans size: 33173) [more...]

To Artifact [8616feae0a]:

• File generic/tclLoad.c — part of check-in [e582dc6e06] at 2020-01-16 14:16:48 on branch bug-8cd2fe7474 — Proposed fix for [8cd2fe7474]: "unload" command Bug (when handling multiple libs) (user: jan.nijtmans size: 33177) [more...]

867
868
869
870
871
872
873
874
875
876
877
878
879
880
881

		if (ipPtr->pkgPtr == defaultPtr) {
		    ipFirstPtr = ipFirstPtr->nextPtr;
		} else {
		    InterpPackage *ipPrevPtr;

		    for (ipPrevPtr = ipPtr; ipPtr != NULL;
			    ipPrevPtr = ipPtr, ipPtr = ipPtr->nextPtr) {
			if (ipPtr->pkgPtr == pkgPtr) {
			    ipPrevPtr->nextPtr = ipPtr->nextPtr;
			    break;
			}
		    }
		}
		Tcl_SetAssocData(target, "tclLoad", LoadCleanupProc,
			ipFirstPtr);

|

867
868
869
870
871
872
873
874
875
876
877
878
879
880
881

		if (ipPtr->pkgPtr == defaultPtr) {
		    ipFirstPtr = ipFirstPtr->nextPtr;
		} else {
		    InterpPackage *ipPrevPtr;

		    for (ipPrevPtr = ipPtr; ipPtr != NULL;
			    ipPrevPtr = ipPtr, ipPtr = ipPtr->nextPtr) {
			if (ipPtr->pkgPtr == defaultPtr) {
			    ipPrevPtr->nextPtr = ipPtr->nextPtr;
			    break;
			}
		    }
		}
		Tcl_SetAssocData(target, "tclLoad", LoadCleanupProc,
			ipFirstPtr);