Tcl Source Code

Check-in [6509c9b571]
Login

Many hyperlinks are disabled.
Use anonymous login to enable hyperlinks.

Overview
Comment:Fix bug reported by Brian Griffin:

http://code.activestate.com/lists/tcl-core/12524/

Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | core-8-5-branch
Files: files | file ages | folders
SHA1: 6509c9b57114f9d87d5bca569b5c96b885f9d8b0
User & Date: jan.nijtmans 2012-11-22 08:47:37
Context
2012-12-03
08:11
merge core-8-5-branch eliminate more usage of to-be-deprecated functions check-in: 976aeca8c6 user: jan.nijtmans tags: better-deprecation-85
2012-11-29
14:50
3588687 When detecting incompatibility during stubs initialization, the error message has always ass... check-in: 8f79454347 user: dgp tags: core-8-5-branch
2012-11-26
18:08
Submitted patch on interactive use of the rc file. Needs resolution of the failing tests in the test... Leaf check-in: ec3bfb08c2 user: dgp tags: rfe-3432962
16:59
merge 8.5 check-in: 45a2eb8ff0 user: dgp tags: griffin-numlevels
2012-11-22
08:49
Fix bug reported by Brian Griffin:

http://code.activestate.com/lists/tcl-core/12524/

check-in: 181caa1a57 user: jan.nijtmans tags: trunk
08:47
Fix bug reported by Brian Griffin:

http://code.activestate.com/lists/tcl-core/12524/

check-in: 6509c9b571 user: jan.nijtmans tags: core-8-5-branch
08:45
Fix bug reported by Brian Griffin:

http://code.activestate.com/lists/tcl-core/12524/

check-in: b8a089f6e4 user: jan.nijtmans tags: core-8-4-branch
2012-11-16
16:11
3587651 Fix Tcl_ListMathFuncs() by turning it into a call to [info functions] check-in: 970cfc1041 user: dgp tags: core-8-5-branch
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to generic/tclIndexObj.c.

198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
     *  - Several abbreviations (never allowed, but overridden by exact match)
     */

    for (entryPtr = tablePtr, idx = 0; *entryPtr != NULL;
	    entryPtr = NEXT_ENTRY(entryPtr, offset), idx++) {
	for (p1 = key, p2 = *entryPtr; *p1 == *p2; p1++, p2++) {
	    if (*p1 == '\0') {
		if (p1 == key) {
		    /* empty keys never match */
		    continue;
		}
		index = idx;
		goto done;
	    }
	}
	if (*p1 == '\0') {
	    /*
	     * The value is an abbreviation for this entry. Continue checking







<
<
<
<







198
199
200
201
202
203
204




205
206
207
208
209
210
211
     *  - Several abbreviations (never allowed, but overridden by exact match)
     */

    for (entryPtr = tablePtr, idx = 0; *entryPtr != NULL;
	    entryPtr = NEXT_ENTRY(entryPtr, offset), idx++) {
	for (p1 = key, p2 = *entryPtr; *p1 == *p2; p1++, p2++) {
	    if (*p1 == '\0') {




		index = idx;
		goto done;
	    }
	}
	if (*p1 == '\0') {
	    /*
	     * The value is an abbreviation for this entry. Continue checking