[Bug testsuite/33205] [gdb/testsuite, meta] Minimum supported tcl version

[tromey at sourceware dot org]

https://sourceware.org/bugzilla/show_bug.cgi?id=33205

--- Comment #10 from Tom Tromey <tromey at sourceware dot org> ---
Here's the essence of the weirdness:

proc with_test_prefix { body } {
    catch {uplevel 1 $body} result options
    return -options $options $result
}

with_test_prefix {
  return
}

puts "HI"


If you run this, it prints HI:

bapiya. tclsh /tmp/q.tcl 
HI


But to me it seems like it should not.

Also fails if I change the proc to:

proc with_test_prefix { body } {
  return [uplevel 1 $body]
}

... which also seems to me like it should behave differently.

This also happens if I start tclsh and "source" the file.

-- 
You are receiving this mail because:
You are on the CC list for the bug.