diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2024-04-04 11:09:44 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2024-04-04 11:09:44 (GMT) |
| commit | a107ac202e6c6806a0690e555b1141f2d032fb41 (patch) | |
| tree | 828fdf2c38d23b3a036def375aa7b834a934824e /generic/tclResult.c | |
| parent | c171fbe7f243ac0bd033178e3a952e1ddcd6f456 (diff) | |
| download | tcl-a107ac202e6c6806a0690e555b1141f2d032fb41.zip tcl-a107ac202e6c6806a0690e555b1141f2d032fb41.tar.gz tcl-a107ac202e6c6806a0690e555b1141f2d032fb41.tar.bz2 | |
Tcl_GetString() -> TclGetString(), for minor speedup.
Diffstat (limited to 'generic/tclResult.c')
| -rw-r--r-- | generic/tclResult.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/generic/tclResult.c b/generic/tclResult.c index f82e6a4..4b8775a 100644 --- a/generic/tclResult.c +++ b/generic/tclResult.c @@ -491,7 +491,7 @@ Tcl_GetStringResult( Interp *iPtr = (Interp *) interp; if (*(iPtr->result) == 0) { - Tcl_SetResult(interp, TclGetString(Tcl_GetObjResult(interp)), + Tcl_SetResult(interp, Tcl_GetString(Tcl_GetObjResult(interp)), TCL_VOLATILE); } return iPtr->result; |