Tcl Source Code

Check-in [49281094f1]
Login

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

Overview
Comment:compiler warning
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1: 49281094f19a823ea38c08160fc04738aa9600d0
User & Date: dgp 2013-05-13 14:23:45
Context
2013-05-13
16:59
Merged fix to bytecode engine problem. Details in merged revision. check-in: 01e27a732a user: andreask tags: trunk
15:17
merge trunk. Add back Tcl_AddErrorInfo to stub table (it's still used by Tk 8.6) check-in: 2097339df1 user: jan.nijtmans tags: novem
14:35
merge trunk check-in: c366eda7c3 user: dgp tags: dgp-refactor
14:23
compiler warning check-in: 49281094f1 user: dgp tags: trunk
14:07
Upgrade to zlib 1.2.8 check-in: f7bd677361 user: jan.nijtmans tags: trunk
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to generic/tclCompile.c.

1130
1131
1132
1133
1134
1135
1136
1137
1138
1139
1140
1141
1142
1143
1144
	storeTarget:
	    (void) Tcl_CreateHashEntry(&targets, (void *) target, &isNew);
	    break;
	case INST_JUMP_TABLE:
	    hPtr = Tcl_FirstHashEntry(
		    &JUMPTABLEINFO(envPtr, pc+1)->hashTable, &hSearch);
	    for (; hPtr ; hPtr = Tcl_NextHashEntry(&hSearch)) {
		target = pc + (int) Tcl_GetHashValue(hPtr);
		(void) Tcl_CreateHashEntry(&targets, (void *) target, &isNew);
	    }
	    break;
	}
    }

    /*







|







1130
1131
1132
1133
1134
1135
1136
1137
1138
1139
1140
1141
1142
1143
1144
	storeTarget:
	    (void) Tcl_CreateHashEntry(&targets, (void *) target, &isNew);
	    break;
	case INST_JUMP_TABLE:
	    hPtr = Tcl_FirstHashEntry(
		    &JUMPTABLEINFO(envPtr, pc+1)->hashTable, &hSearch);
	    for (; hPtr ; hPtr = Tcl_NextHashEntry(&hSearch)) {
		target = pc + PTR2INT(Tcl_GetHashValue(hPtr));
		(void) Tcl_CreateHashEntry(&targets, (void *) target, &isNew);
	    }
	    break;
	}
    }

    /*