Tcl Source Code

View Ticket
Login
Ticket UUID: 1671087
Title: [foreach] crash
Type: Bug Version: obsolete: 8.5a6
Submitter: dgp Created on: 2007-02-28 18:00:59
Subsystem: 47. Bytecode Compiler Assigned To: dgp
Priority: 9 Immediate Severity:
Status: Closed Last Modified: 2007-03-13 23:26:10
Resolution: Fixed Closed By: dgp
    Closed on: 2007-03-13 16:26:10
Description:
This script crashes INST_FOREACH_STEP4:

proc demo {} {
    set vals {1 2 3 4}
    trace add variable x write {string length $vals ;# }
    foreach {x y} $vals {puts $y}
}
demo
User Comments: dgp added on 2007-03-13 23:26:10:
Logged In: YES 
user_id=80530
Originator: YES


fix for 8.4.15 committed too.

dgp added on 2007-03-13 03:45:33:
Logged In: YES 
user_id=80530
Originator: YES

patch committed to HEAD
with test.

Still needs backport.

dgp added on 2007-03-01 01:06:13:

File Added - 218194: 1671087.patch

Logged In: YES 
user_id=80530
Originator: YES


Here's a patch for 8.5.

Same script crashes 8.4.15 too,
and a backported fix will need
more examination.

File Added: 1671087.patch

Attachments: