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/tclProc.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/tclProc.c')
-rw-r--r-- | generic/tclProc.c | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/generic/tclProc.c b/generic/tclProc.c index ae9e7cd..81d3b25 100644 --- a/generic/tclProc.c +++ b/generic/tclProc.c @@ -343,7 +343,7 @@ Tcl_ProcObjCmd( * The argument list is just "args"; check the body */ - procBody = Tcl_GetStringFromObj(objv[3], &numBytes); + procBody = TclGetStringFromObj(objv[3], &numBytes); if (TclParseAllWhiteSpace(procBody, numBytes) < numBytes) { goto done; } @@ -2083,7 +2083,7 @@ MakeProcError( * messages and trace information. */ { int overflow, limit = 60, nameLen; - const char *procName = Tcl_GetStringFromObj(procNameObj, &nameLen); + const char *procName = TclGetStringFromObj(procNameObj, &nameLen); overflow = (nameLen > limit); Tcl_AppendObjToErrorInfo(interp, Tcl_ObjPrintf( @@ -2764,7 +2764,7 @@ MakeLambdaError( * messages and trace information. */ { int overflow, limit = 60, nameLen; - const char *procName = Tcl_GetStringFromObj(procNameObj, &nameLen); + const char *procName = TclGetStringFromObj(procNameObj, &nameLen); overflow = (nameLen > limit); Tcl_AppendObjToErrorInfo(interp, Tcl_ObjPrintf( |