diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2023-11-23 13:25:45 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2023-11-23 13:25:45 (GMT) |
| commit | fefd5e71dcb3969e41112b186b2d30918ad62010 (patch) | |
| tree | c7f8968d3f2a6dbed22973a4b87d5c438b350a26 /generic/tclInterp.c | |
| parent | 097954529a4f7cbc2bba17841f07a4283b68f1cc (diff) | |
| parent | 613ad6861bdef8e2bfcde5630c0b34af183c6f56 (diff) | |
| download | tcl-fefd5e71dcb3969e41112b186b2d30918ad62010.zip tcl-fefd5e71dcb3969e41112b186b2d30918ad62010.tar.gz tcl-fefd5e71dcb3969e41112b186b2d30918ad62010.tar.bz2 | |
Merge 8.7
Diffstat (limited to 'generic/tclInterp.c')
| -rw-r--r-- | generic/tclInterp.c | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/generic/tclInterp.c b/generic/tclInterp.c index b023615..3d2c009 100644 --- a/generic/tclInterp.c +++ b/generic/tclInterp.c @@ -402,6 +402,7 @@ Tcl_Init( "if {$tail eq [info tclversion]} continue\n" "file join [file dirname $env(TCL_LIBRARY)] tcl[info tclversion]}\n" " }\n" +" lappend scripts {::tcl::zipfs::tcl_library_init}\n" " if {[info exists tclDefaultLibrary]} {\n" " lappend scripts {set tclDefaultLibrary}\n" " } else {\n" @@ -3603,7 +3604,7 @@ static void WrapFree( void *ptr) { - Tcl_Free(ptr); + ckfree(ptr); } void |