Differences From Artifact [47873864f4]:

• File generic/tclLoad.c — part of check-in [085ffd9b5b] at 2020-10-27 14:30:18 on branch build-info — Merge 8.7. Enhance "load", being able to handle '::' in package names (user: jan.nijtmans size: 35043) [more...]

To Artifact [69f54fcfbe]:

• File generic/tclLoad.c — part of check-in [985fb8cd4c] at 2020-11-03 11:25:57 on branch build-info — Fix clang++ build (user: jan.nijtmans size: 35051)

365
366
367
368
369
370
371
372
373
374
375
376
377
378
379

	 */

	Tcl_DStringSetLength(&pkgName,
		Tcl_UtfToTitle(Tcl_DStringValue(&pkgName)));
	while (strchr(Tcl_DStringValue(&pkgName), ':') != NULL) {
	    char *r;
	    p = Tcl_DStringValue(&pkgName);
	    r = strchr(p, ':');
	    if ((r != NULL) && (r[1] == ':')) {
		memmove(r, r+2, strlen(r+1));
	    }
	    Tcl_DStringSetLength(&pkgName, strlen(p));
	}

	/*

|

365
366
367
368
369
370
371
372
373
374
375
376
377
378
379

	 */

	Tcl_DStringSetLength(&pkgName,
		Tcl_UtfToTitle(Tcl_DStringValue(&pkgName)));
	while (strchr(Tcl_DStringValue(&pkgName), ':') != NULL) {
	    char *r;
	    p = Tcl_DStringValue(&pkgName);
	    r = strchr((char *)p, ':');
	    if ((r != NULL) && (r[1] == ':')) {
		memmove(r, r+2, strlen(r+1));
	    }
	    Tcl_DStringSetLength(&pkgName, strlen(p));
	}

	/*