Tcl Source Code

Check-in [7a099f617d]
Login

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

Overview
Comment:silence compiler warning
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1: 7a099f617ddea54d89d6d354eb342799f2b96d99
User & Date: dgp 2013-10-23 15:32:58
Context
2013-10-25
13:08
Fix [3eb2ec1449]: Allow upper case scheme names in url. http -> 2.8.8 check-in: 9294544d51 user: jan.nijtmans tags: trunk
2013-10-23
15:34
merge trunk check-in: 82ea7da5a4 user: dgp tags: dkf/asm-crash-20131022
15:32
silence compiler warning check-in: 7a099f617d user: dgp tags: trunk
2013-10-22
18:58
[3556215]: Made scan match [format] better in what it accepts as a format string, by allowing uppe... check-in: 815e766d3e user: dkf tags: trunk
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to generic/tclCompile.c.

4030
4031
4032
4033
4034
4035
4036
4037
4038
4039
4040
4041
4042
4043
4044
     * finish that up now.
     */

    if (auxBreakPtr != NULL || auxContinuePtr != NULL) {
	int savedStackDepth = envPtr->currStackDepth;
	int savedExpandCount = envPtr->expandCount;
	JumpFixup nonTrapFixup;
	ExceptionAux *exceptAux = envPtr->exceptAuxArrayPtr + loopRange;

	if (auxBreakPtr != NULL) {
	    auxBreakPtr = envPtr->exceptAuxArrayPtr + breakRange;
	}
	if (auxContinuePtr != NULL) {
	    auxContinuePtr = envPtr->exceptAuxArrayPtr + continueRange;
	}







<







4030
4031
4032
4033
4034
4035
4036

4037
4038
4039
4040
4041
4042
4043
     * finish that up now.
     */

    if (auxBreakPtr != NULL || auxContinuePtr != NULL) {
	int savedStackDepth = envPtr->currStackDepth;
	int savedExpandCount = envPtr->expandCount;
	JumpFixup nonTrapFixup;


	if (auxBreakPtr != NULL) {
	    auxBreakPtr = envPtr->exceptAuxArrayPtr + breakRange;
	}
	if (auxContinuePtr != NULL) {
	    auxContinuePtr = envPtr->exceptAuxArrayPtr + continueRange;
	}