summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authordgp <dgp@users.sourceforge.net>2016-11-07 20:18:30 (GMT)
committerdgp <dgp@users.sourceforge.net>2016-11-07 20:18:30 (GMT)
commitb1c86e9055e5384cf165f8e509583067d4b32796 (patch)
treef2db243f4b3fb94d7c47a5cc9c7219be92fecbf8
parent547c580e1abe051ba9f909c8f6d20a43595bb667 (diff)
downloadtcl-b1c86e9055e5384cf165f8e509583067d4b32796.zip
tcl-b1c86e9055e5384cf165f8e509583067d4b32796.tar.gz
tcl-b1c86e9055e5384cf165f8e509583067d4b32796.tar.bz2
Purge disabled code.
-rw-r--r--generic/tclExecute.c17
1 files changed, 0 insertions, 17 deletions
diff --git a/generic/tclExecute.c b/generic/tclExecute.c
index 5ea199d..a44451f 100644
--- a/generic/tclExecute.c
+++ b/generic/tclExecute.c
@@ -5720,24 +5720,7 @@ 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 */
-
- match = -1;
- if (length2 > 0 && length2 <= length) {
- end = ustring1 + length - length2 + 1;
- for (p=ustring1 ; p<end ; p++) {
- if ((*p == *ustring2) &&
- memcmp(ustring2,p,sizeof(Tcl_UniChar)*length2) == 0) {
- match = p - ustring1;
- break;
- }
- }
- }
-#endif
TRACE(("%.20s %.20s => %d\n",
O2S(OBJ_UNDER_TOS), O2S(OBJ_AT_TOS), match));