Tcl Source Code

Check-in [6547cc9e7b]
Login

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

Overview
Comment:fix off-by-one error introduced in bd7d7a2061
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1: 6547cc9e7b00eb2da3c789dba251bdbef711dc4f
User & Date: mig 2013-01-10 18:17:33
Context
2013-01-10
21:18
tailcall now running in a simpler model, with no eval-flags and no nre-stack rewriting; yieldto also... check-in: 7bbaefb54f user: mig tags: trunk
20:28
merge trunk check-in: 2f274ed277 user: mig tags: mig-nre-mods
19:04
merge trunk check-in: c8969e4cd8 user: mig tags: mig-alloc-reform
18:36
merge trunk check-in: 68d60b33f1 user: dgp tags: dgp-refactor
18:17
fix off-by-one error introduced in bd7d7a2061 check-in: 6547cc9e7b user: mig tags: trunk
2013-01-09
14:07
[Bug 3599395]: http assumes status line is a proper tcl list. check-in: f4f88c291e user: jan.nijtmans tags: trunk
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to generic/tclExecute.c.

1085
1086
1087
1088
1089
1090
1091
1092
1093
1094
1095
1096
1097
1098
1099
     * any) and growth to hold the complete stack requirements: add one for
     * the marker, (WALLOCALIGN-1) for the maximal possible offset.
     */

    if (move) {
	moveWords = esPtr->tosPtr - MEMSTART(markerPtr) + 1;
    }
    needed = growth + moveWords + WALLOCALIGN - 1;

    
    /*
     * Check if there is enough room in the next stack (if there is one, it
     * should be both empty and the last one!)
     */








|







1085
1086
1087
1088
1089
1090
1091
1092
1093
1094
1095
1096
1097
1098
1099
     * any) and growth to hold the complete stack requirements: add one for
     * the marker, (WALLOCALIGN-1) for the maximal possible offset.
     */

    if (move) {
	moveWords = esPtr->tosPtr - MEMSTART(markerPtr) + 1;
    }
    needed = growth + moveWords + WALLOCALIGN;

    
    /*
     * Check if there is enough room in the next stack (if there is one, it
     * should be both empty and the last one!)
     */