Tcl Source Code

Check-in [181caa1a57]
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 | trunk
Files: files | file ages | folders
SHA1: 181caa1a57922cbed7abe49f1f4fa3ac781cc1d6
User & Date: jan.nijtmans 2012-11-22 08:49:46
Context
2012-11-26
15:31
merge trunk check-in: cdc837ae05 user: mig tags: mig-alloc-reform
15:27
doc formatting goofs check-in: c6b4acb1a5 user: dgp tags: trunk
2012-11-22
17:27
merge trunk check-in: 35b8d54516 user: dgp tags: core-8-6-0-rc
15:14
Modification to Autoconf to prefer tcl8.6+ or tcl9 over tcl8.5 (or older)

This allows build scripts... check-in: 9166f0084e user: seandeelywoods tags: hypnotoad-prefer-native-8.6

09:18
merge trunk check-in: e122d03c34 user: jan.nijtmans tags: novem
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
2012-11-20
12:11
[Bug 3033307]: fix [binary decode base64] whitespace handling with '=' suffixes check-in: 15e6f87e78 user: dkf tags: trunk
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to generic/tclIndexObj.c.

298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
     *  - 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







<
<
<
<







298
299
300
301
302
303
304




305
306
307
308
309
310
311
     *  - 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