diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2023-09-29 09:53:49 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2023-09-29 09:53:49 (GMT) |
| commit | 35d2a8013960a923e171c730d36430400813aa76 (patch) | |
| tree | 7a4eea18cc5785e9d0a431b070354da4879cb621 /generic/tclVar.c | |
| parent | 1869d72dc01bb84257f1443d7c3eb3049dfc3888 (diff) | |
| download | tcl-35d2a8013960a923e171c730d36430400813aa76.zip tcl-35d2a8013960a923e171c730d36430400813aa76.tar.gz tcl-35d2a8013960a923e171c730d36430400813aa76.tar.bz2 | |
Undo changes in tclVar.c: no longer necessary
Diffstat (limited to 'generic/tclVar.c')
| -rw-r--r-- | generic/tclVar.c | 14 |
1 files changed, 1 insertions, 13 deletions
diff --git a/generic/tclVar.c b/generic/tclVar.c index 231b09d..31312e1 100644 --- a/generic/tclVar.c +++ b/generic/tclVar.c @@ -5587,27 +5587,15 @@ TclObjVarErrMsg( * variable, or -1. Only used when part1Ptr is * NULL. */ { - const char *part2Str = NULL; if (!part1Ptr) { if (index == -1) { Tcl_Panic("invalid part1Ptr and invalid index together"); } part1Ptr = localName(((Interp *)interp)->varFramePtr, index); } - if (part2Ptr) { - Tcl_DString ds; - Tcl_DStringInit(&ds); - - part2Str = TclGetString(part2Ptr); - if (Tcl_UtfToExternalDStringEx(NULL, TCLFSENCODING, part2Str, -1, 0, &ds, NULL) != TCL_OK) { - /* part2Str is not printable to stdout, because of strict profile. Don't bother */ - part2Str = "???"; - } - Tcl_DStringFree(&ds); - } Tcl_SetObjResult(interp, Tcl_ObjPrintf("can't %s \"%s%s%s%s\": %s", operation, TclGetString(part1Ptr), (part2Ptr ? "(" : ""), - (part2Ptr ? part2Str : ""), (part2Ptr ? ")" : ""), + (part2Ptr ? TclGetString(part2Ptr) : ""), (part2Ptr ? ")" : ""), reason)); } |