diff options
| author | Miguel Sofer <miguel.sofer@gmail.com> | 2001-05-26 01:25:59 (GMT) |
|---|---|---|
| committer | Miguel Sofer <miguel.sofer@gmail.com> | 2001-05-26 01:25:59 (GMT) |
| commit | deb12f9f60a4a57e4922c929ee5a7a3f6966e098 (patch) | |
| tree | 0e06178b65f3cb3a4a76a355b8724bdb0df85b82 /generic/tclIndexObj.c | |
| parent | 3b5f432c9bb4ae184008bbd89f63fd2c35f242ec (diff) | |
| download | tcl-deb12f9f60a4a57e4922c929ee5a7a3f6966e098.zip tcl-deb12f9f60a4a57e4922c929ee5a7a3f6966e098.tar.gz tcl-deb12f9f60a4a57e4922c929ee5a7a3f6966e098.tar.bz2 | |
[Patch #424851]: Faster array searching & obj cleanup
Diffstat (limited to 'generic/tclIndexObj.c')
| -rw-r--r-- | generic/tclIndexObj.c | 19 |
1 files changed, 1 insertions, 18 deletions
diff --git a/generic/tclIndexObj.c b/generic/tclIndexObj.c index 1ae0d8c..3c491dd 100644 --- a/generic/tclIndexObj.c +++ b/generic/tclIndexObj.c @@ -10,7 +10,7 @@ * See the file "license.terms" for information on usage and redistribution * of this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclIndexObj.c,v 1.8 2000/11/24 11:27:37 dkf Exp $ + * RCS: @(#) $Id: tclIndexObj.c,v 1.9 2001/05/26 01:25:59 msofer Exp $ */ #include "tclInt.h" @@ -44,13 +44,6 @@ Tcl_ObjType tclIndexType = { * with a single offset, but this is a pretty safe assumption in * practise... */ - -/* - * Boolean flag indicating whether or not the tclIndexType object - * type has been registered with the Tcl compiler. - */ - -static int indexTypeInitialized = 0; /* *---------------------------------------------------------------------- @@ -171,16 +164,6 @@ Tcl_GetIndexFromObjStruct(interp, objPtr, tablePtr, offset, msg, flags, * abbreviations unless TCL_EXACT is set in flags. */ - if (!indexTypeInitialized) { - /* - * This is the first time we've done a lookup. Register the - * tclIndexType. - */ - - Tcl_RegisterObjType(&tclIndexType); - indexTypeInitialized = 1; - } - key = Tcl_GetStringFromObj(objPtr, &length); index = -1; numAbbrev = 0; |