Tcl Source Code

Check-in [adead12b0b]
Login

Many hyperlinks are disabled.
Use anonymous login to enable hyperlinks.

Overview
Comment:Unbreak build on Windows (and - most likely - some other platforms too)
Downloads: Tarball | ZIP archive
Timelines: family | ancestors | descendants | both | core-8-6-branch
Files: files | file ages | folders
SHA3-256: adead12b0b92bbdc267ea77e8fec75d300416a46a0faa293d9cc5e0449b7b38b
User & Date: jan.nijtmans 2018-06-18 15:51:43.989
Context
2018-06-18
15:54
Fix [53cad613d8]: TIP 389 implementation makes Tk tests font-4.12 and font-4.15 fail. One more situa... check-in: c45de6cdb4 user: jan.nijtmans tags: core-8-6-branch
15:51
Unbreak build on Windows (and - most likely - some other platforms too) check-in: adead12b0b user: jan.nijtmans tags: core-8-6-branch
08:09
Avoid valgrind "still reachable" reports stemming from early termination of threads. check-in: 2d150958f0 user: pooryorick tags: core-8-6-branch
Changes
Unified Diff Ignore Whitespace Patch
Changes to generic/tclEnv.c.
723
724
725
726
727
728
729
730
731
732
733

734
735
736
737
738
739
740

741
742
743
744
745
746
747
748
749
750
751
752
     * strings. This may leak more memory that strictly necessary, since some
     * of the strings may no longer be in the environment. However,
     * determining which ones are ok to delete is n-squared, and is pretty
     * unlikely, so we don't bother.  However, in the case of DPURIFY, just
     * free all strings in the cache.
     */

    size_t i;

    if (env.cache) {
#ifdef PURIFY

	for (i = 0; i < env.cacheSize; i++) {
	    ckfree(env.cache[i]);
	}
#endif
	ckfree(env.cache);
	env.cache = NULL;
	env.cacheSize = 0;

	if ((env.ourEnviron != NULL)) {
	    ckfree(env.ourEnviron);
	    env.ourEnviron = NULL;
	}
#ifndef USE_PUTENV
	env.ourEnvironSize = 0;
#endif
    }
}

/*
 * Local Variables:







<
<


>







>




<







723
724
725
726
727
728
729


730
731
732
733
734
735
736
737
738
739
740
741
742
743
744

745
746
747
748
749
750
751
     * strings. This may leak more memory that strictly necessary, since some
     * of the strings may no longer be in the environment. However,
     * determining which ones are ok to delete is n-squared, and is pretty
     * unlikely, so we don't bother.  However, in the case of DPURIFY, just
     * free all strings in the cache.
     */



    if (env.cache) {
#ifdef PURIFY
	int i;
	for (i = 0; i < env.cacheSize; i++) {
	    ckfree(env.cache[i]);
	}
#endif
	ckfree(env.cache);
	env.cache = NULL;
	env.cacheSize = 0;
#ifndef USE_PUTENV
	if ((env.ourEnviron != NULL)) {
	    ckfree(env.ourEnviron);
	    env.ourEnviron = NULL;
	}

	env.ourEnvironSize = 0;
#endif
    }
}

/*
 * Local Variables: