diff options
| author | sebres <sebres@users.sourceforge.net> | 2018-03-14 17:23:24 (GMT) |
|---|---|---|
| committer | sebres <sebres@users.sourceforge.net> | 2018-03-14 17:23:24 (GMT) |
| commit | 1bf60bab3cd706cba08c15df5a6a5267d918aeae (patch) | |
| tree | 1e1fc8cf41f499d9eb94ba06e77ba90571ccfdbd | |
| parent | 77ab9f868a1aa99f5bdeb1cfb04e146eef54cae8 (diff) | |
| download | tcl-1bf60bab3cd706cba08c15df5a6a5267d918aeae.zip tcl-1bf60bab3cd706cba08c15df5a6a5267d918aeae.tar.gz tcl-1bf60bab3cd706cba08c15df5a6a5267d918aeae.tar.bz2 | |
optimize compiled (INST_STR_TRIM): use new function TclTrim instead of combination of TclTrimLeft/TclTrimRight
| -rw-r--r-- | generic/tclExecute.c | 7 |
1 files changed, 1 insertions, 6 deletions
diff --git a/generic/tclExecute.c b/generic/tclExecute.c index 2ef627d..aab9092 100644 --- a/generic/tclExecute.c +++ b/generic/tclExecute.c @@ -6022,12 +6022,7 @@ TEBCresume( value2Ptr = OBJ_AT_TOS; /* TrimSet */ string2 = TclGetStringFromObj(value2Ptr, &length2); string1 = TclGetStringFromObj(valuePtr, &length); - trim1 = TclTrimLeft(string1, length, string2, length2); - if (trim1 < length) { - trim2 = TclTrimRight(string1, length, string2, length2); - } else { - trim2 = 0; - } + trim1 = TclTrim(string1, length, string2, length2, &trim2); createTrimmedString: /* * Careful here; trim set often contains non-ASCII characters so we |