Tcl Source Code

Check-in [aebfca2101]
Login

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

Overview
Comment:Corrected code generation when doing the second run with an 'infinite' loop.
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1: aebfca2101d90b3eb4a05852deff6700b4b81198
User & Date: dkf 2013-05-30 10:29:41
Context
2013-06-03
09:46
Merge back the improved [break] and [continue] compilation. check-in: db942354cc user: dkf tags: trunk
2013-05-30
18:51
More robust expansion calculation. Look Ma! No operand! check-in: ae093ef704 user: dgp tags: mig-review
10:55
Working towards the next batch of optimizations. check-in: 3b09d7b08a user: dkf tags: dkf-compile-improvements
10:29
Corrected code generation when doing the second run with an 'infinite' loop. check-in: aebfca2101 user: dkf tags: trunk
2013-05-29
20:36
Simplifications and tidying up of stack management issues. Work in progress. check-in: 94c169dbe0 user: dgp tags: trunk
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to generic/tclCompCmdsSZ.c.

2855
2856
2857
2858
2859
2860
2861
2862
2863
2864
2865
2866
2867
2868
2869
	testCodeOffset = 0;	/* Avoid compiler warning. */
    } else {
	/*
	 * Make sure that the first command in the body is preceded by an
	 * INST_START_CMD, and hence counted properly. [Bug 1752146]
	 */

	envPtr->atCmdStart = 0;
	testCodeOffset = CurrentOffset(envPtr);
    }

    /*
     * Compile the loop body.
     */








|







2855
2856
2857
2858
2859
2860
2861
2862
2863
2864
2865
2866
2867
2868
2869
	testCodeOffset = 0;	/* Avoid compiler warning. */
    } else {
	/*
	 * Make sure that the first command in the body is preceded by an
	 * INST_START_CMD, and hence counted properly. [Bug 1752146]
	 */

	envPtr->atCmdStart &= ~1;
	testCodeOffset = CurrentOffset(envPtr);
    }

    /*
     * Compile the loop body.
     */