Tcl Source Code

Check-in [b8a089f6e4]
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-4-branch
Files: files | file ages | folders
SHA1: b8a089f6e458605f83e7eb1cfc5c82b5ce75337b
User & Date: jan.nijtmans 2012-11-22 08:45:39
Context
2012-11-29
14:47
3588687 When detecting incompatibility during stubs initialization, the error message has always ass... check-in: 9cdc082a63 user: dgp tags: core-8-4-branch
2012-11-22
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
10:16
Fix msgcat.test (in case a higher msgcat version is encountered, which is not included with Tcl 8.4)... check-in: feb6e6bc81 user: jan.nijtmans tags: core-8-4-branch
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to generic/tclIndexObj.c.

203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
     *  - A single abbreviation (allowed depending on flags)
     *  - Several abbreviations (never allowed, but overridden by exact match)
     */
    for (entryPtr = tablePtr, i = 0; *entryPtr != NULL; 
	    entryPtr = NEXT_ENTRY(entryPtr, offset), i++) {
	for (p1 = key, p2 = *entryPtr; *p1 == *p2; p1++, p2++) {
	    if (*p1 == '\0') {
		if (p1 == key) {
		    /* empty keys never match */
		    continue;
		}
		index = i;
		goto done;
	    }
	}
	if (*p1 == '\0') {
	    /*
	     * The value is an abbreviation for this entry.  Continue







<
<
<
<







203
204
205
206
207
208
209




210
211
212
213
214
215
216
     *  - A single abbreviation (allowed depending on flags)
     *  - Several abbreviations (never allowed, but overridden by exact match)
     */
    for (entryPtr = tablePtr, i = 0; *entryPtr != NULL; 
	    entryPtr = NEXT_ENTRY(entryPtr, offset), i++) {
	for (p1 = key, p2 = *entryPtr; *p1 == *p2; p1++, p2++) {
	    if (*p1 == '\0') {




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