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/tclCompCmdsGR.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/tclCompCmdsGR.c')
| -rw-r--r-- | generic/tclCompCmdsGR.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/generic/tclCompCmdsGR.c b/generic/tclCompCmdsGR.c index ffe39ba..593a8af 100644 --- a/generic/tclCompCmdsGR.c +++ b/generic/tclCompCmdsGR.c @@ -2451,7 +2451,7 @@ TclCompileRegsubCmd( * replacement "simple"? */ - bytes = Tcl_GetStringFromObj(patternObj, &len); + bytes = TclGetStringFromObj(patternObj, &len); if (TclReToGlob(NULL, bytes, len, &pattern, &exact, &quantified) != TCL_OK || exact || quantified) { goto done; @@ -2499,7 +2499,7 @@ TclCompileRegsubCmd( result = TCL_OK; bytes = Tcl_DStringValue(&pattern) + 1; PushLiteral(envPtr, bytes, len); - bytes = Tcl_GetStringFromObj(replacementObj, &len); + bytes = TclGetStringFromObj(replacementObj, &len); PushLiteral(envPtr, bytes, len); CompileWord(envPtr, stringTokenPtr, interp, parsePtr->numWords-2); TclEmitOpcode( INST_STR_MAP, envPtr); |