#4098 TEBC direct eval fallback mishandles -errorinfo

obsolete: 8.5.3
closed-fixed
Don Porter
5
2008-08-04
2008-08-04
Don Porter
No

This new test fails in 8.5 and later:

test execute-8.4 {Compile epoch bump effect on stack trace} -setup {
proc foo {} {
error bar
}
proc FOO {} {
catch {error bar} m o
rename ::set ::dummy
rename ::dummy ::set
return -options $o $m
}
} -body {
catch foo m o
set stack1 [dict get $o -errorinfo]
catch FOO m o
set stack2 [string map {FOO foo} [dict get $o -errorinfo]]
expr {$stack1 eq $stack2 ? {} : "These differ:\n$stack1\n$stack2"}
} -cleanup {
rename foo {}
rename FOO {}
} -result {}

Bug was uncovered tracking down Bug
2023112 on the HEAD which involved
the new TclOO code. This test confirms
the bug doesn't require OO as a trigger.

Discussion

  • Don Porter
    Don Porter
    2008-08-04

    Logged In: YES
    user_id=80530
    Originator: YES

    fixed for 8.5.4 and 8.6a2

     
  • Don Porter
    Don Porter
    2008-08-04

    • status: open --> closed-fixed