diff options
author | dgp <dgp@users.sourceforge.net> | 2016-11-07 20:11:11 (GMT) |
---|---|---|
committer | dgp <dgp@users.sourceforge.net> | 2016-11-07 20:11:11 (GMT) |
commit | 547c580e1abe051ba9f909c8f6d20a43595bb667 (patch) | |
tree | 987324200646eaa485ded0e53970555ff3033b7c /generic/tclExecute.c | |
parent | 9bbdc1599de82b388e548191a669524d9b577653 (diff) | |
parent | 96b75029d111bab1f01acea88795c774b96b4f6e (diff) | |
download | tcl-547c580e1abe051ba9f909c8f6d20a43595bb667.zip tcl-547c580e1abe051ba9f909c8f6d20a43595bb667.tar.gz tcl-547c580e1abe051ba9f909c8f6d20a43595bb667.tar.bz2 |
Refactor to channel all [string first] functions through a single implementation.
Diffstat (limited to 'generic/tclExecute.c')
-rw-r--r-- | generic/tclExecute.c | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/generic/tclExecute.c b/generic/tclExecute.c index 83b83f1..5ea199d 100644 --- a/generic/tclExecute.c +++ b/generic/tclExecute.c @@ -5720,6 +5720,9 @@ TEBCresume( NEXT_INST_V(1, 3, 1); case INST_STR_FIND: +#if 1 + match = TclStringFind(OBJ_UNDER_TOS, OBJ_AT_TOS, 0); +#else ustring1 = Tcl_GetUnicodeFromObj(OBJ_AT_TOS, &length); /* Haystack */ ustring2 = Tcl_GetUnicodeFromObj(OBJ_UNDER_TOS, &length2);/* Needle */ @@ -5734,6 +5737,7 @@ TEBCresume( } } } +#endif TRACE(("%.20s %.20s => %d\n", O2S(OBJ_UNDER_TOS), O2S(OBJ_AT_TOS), match)); |