diff options
| author | dgp <dgp@users.sourceforge.net> | 2005-04-12 20:28:37 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2005-04-12 20:28:37 (GMT) |
| commit | e691fce6b050292abd74b38b28886b6e5bcea55b (patch) | |
| tree | 74b040532952493b56ceb110cb13d4b8ba55366c /generic/tclInterp.c | |
| parent | 565bd04328ff6afd8e176982f12ae7e376db8f34 (diff) | |
| download | tcl-e691fce6b050292abd74b38b28886b6e5bcea55b.zip tcl-e691fce6b050292abd74b38b28886b6e5bcea55b.tar.gz tcl-e691fce6b050292abd74b38b28886b6e5bcea55b.tar.bz2 | |
* generic/tclInterp.c: Corrected bad syntax of Tcl_Panic() call.
* generic/tclUtil.c (TclGetProcessGlobalValue): More robust handling
of bad TclInitProcessGlobalValueProc behavior; an immediate panic
rather than a mysterious crash later.
* generic/tclEncoding.c: Several changes to the way the
encodingFileMap cache is maintained. Previously, it was attempted
to keep the file map filled and up to date with changes in the
encoding search path. This contributed to slow startup times since
it required an expensive "glob" operation to fill the cache. Now the
validity of items in the cache are checked at the time they are
used, so the cache is permitted to fall out of sync with the
encoding search path. Only [encoding names] and Tcl_GetEncodingNames()
now pay the full expense. [Bug 1177363]
Diffstat (limited to 'generic/tclInterp.c')
| -rw-r--r-- | generic/tclInterp.c | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/generic/tclInterp.c b/generic/tclInterp.c index 4521b50..d1e4a7f 100644 --- a/generic/tclInterp.c +++ b/generic/tclInterp.c @@ -10,7 +10,7 @@ * See the file "license.terms" for information on usage and redistribution * of this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclInterp.c,v 1.55 2004/12/16 19:36:34 dkf Exp $ + * RCS: @(#) $Id: tclInterp.c,v 1.56 2005/04/12 20:28:47 dgp Exp $ */ #include "tclInt.h" @@ -466,8 +466,8 @@ done: if (strcmp(Tcl_DStringValue(&encodingName), Tcl_GetEncodingName(NULL))) { code = Tcl_SetSystemEncoding(NULL, Tcl_DStringValue(&encodingName)); if (code == TCL_ERROR) { - Tcl_Panic("system encoding \"", Tcl_DStringValue(&encodingName), - "\" not available"); + Tcl_Panic("system encoding \"%s\" not available", + Tcl_DStringValue(&encodingName)); } } Tcl_DStringFree(&encodingName); |