diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2016-07-08 10:28:48 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2016-07-08 10:28:48 (GMT) |
| commit | 7de7029fa536bea308baf31b470cfceb3c4a626d (patch) | |
| tree | 2b8995478cfb59e408b65de66a7a0c682f23bca7 /generic/tclParse.c | |
| parent | 1e5db76cc11b9774a8abcb29ca4ec50a6903819e (diff) | |
| download | tcl-7de7029fa536bea308baf31b470cfceb3c4a626d.zip tcl-7de7029fa536bea308baf31b470cfceb3c4a626d.tar.gz tcl-7de7029fa536bea308baf31b470cfceb3c4a626d.tar.bz2 | |
Micro-optimization: Use TclGetStringFromObj in stead of Tcl_GetStringFromObj in many places where possible.
Diffstat (limited to 'generic/tclParse.c')
| -rw-r--r-- | generic/tclParse.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/generic/tclParse.c b/generic/tclParse.c index 5577e87..3a04df4 100644 --- a/generic/tclParse.c +++ b/generic/tclParse.c @@ -2220,7 +2220,7 @@ TclSubstTokens( if (result == 0) { clPos = 0; } else { - Tcl_GetStringFromObj(result, &clPos); + TclGetStringFromObj(result, &clPos); } if (numCL >= maxNumCL) { @@ -2496,7 +2496,7 @@ TclObjCommandComplete( * check. */ { int length; - const char *script = Tcl_GetStringFromObj(objPtr, &length); + const char *script = TclGetStringFromObj(objPtr, &length); return CommandComplete(script, length); } |