Tcl Source Code

Check-in [fdb8a91f37]
Login
Bounty program for improvements to Tcl and certain Tcl packages.

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

Overview
Comment:Plug leak in TclSetEnv.
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | core-8-6-branch
Files: files | file ages | folders
SHA3-256: fdb8a91f374d6c499cbd513a0806ffeda6a5673c91b91c5a77ccafe2690577b4
User & Date: pooryorick 2018-06-18 05:59:22
Context
2018-06-18
07:06
Full cleanup of env cache when in a PURIFY build. check-in: 28ba7d5089 user: pooryorick tags: core-8-6-branch
05:59
Plug leak in TclSetEnv. check-in: fdb8a91f37 user: pooryorick tags: core-8-6-branch
2018-06-17
16:07
Fix [53cad613d8]: TIP 389 implementation makes Tk tests fon... check-in: 8702869d89 user: jan.nijtmans tags: core-8-6-branch
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to generic/tclEnv.c.

726
727
728
729
730
731
732




733
734
735
736
737
738
739
740
741
742
743
744
745
     * unlikely, so we don't bother.
     */

    if (env.cache) {
	ckfree(env.cache);
	env.cache = NULL;
	env.cacheSize = 0;




#ifndef USE_PUTENV
	env.ourEnvironSize = 0;
#endif
    }
}

/*
 * Local Variables:
 * mode: c
 * c-basic-offset: 4
 * fill-column: 78
 * End:
 */






>
>
>
>













726
727
728
729
730
731
732
733
734
735
736
737
738
739
740
741
742
743
744
745
746
747
748
749
     * unlikely, so we don't bother.
     */

    if (env.cache) {
	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:
 * mode: c
 * c-basic-offset: 4
 * fill-column: 78
 * End:
 */

Changes to tests/pkgIndex.tcl.

1
2
3
4
5
6

#! /usr/bin/env tclsh

package ifneeded tcltests 0.1 {
	source [file dirname [file dirname [file normalize [info script]/...]]]/tcltests.tcl
	package provide tcltests 0.1
}


|
|
|
<
>
1
2
3
4
5

6
#! /usr/bin/env tclsh

package ifneeded tcltests 0.1 "
    source [list $dir]/tcltests.tcl
    package provide tcltests 0.1

"