From d09628385443574b556f2beaaba7588a2a5fb4c0 Mon Sep 17 00:00:00 2001 From: Tom de Vries Date: Mon, 5 Aug 2019 12:51:58 +0200 Subject: [gdb/testsuite] Fix typo in tcl_version_at_least In tcl_version_at_least we compare a minor against a major version number: ... } elseif { $tcl_version_major == $major \ && $tcl_version_major >= $minor } { ... Fix this by using $tcl_version_minor in the comparison instead. Tested on x86_64-linux. gdb/testsuite/ChangeLog: 2019-08-05 Tom de Vries * lib/gdb.exp (tcl_version_at_least): Fix typo. --- gdb/testsuite/ChangeLog | 4 ++++ gdb/testsuite/lib/gdb.exp | 2 +- 2 files changed, 5 insertions(+), 1 deletion(-) (limited to 'gdb') diff --git a/gdb/testsuite/ChangeLog b/gdb/testsuite/ChangeLog index fe156ea..b53913c 100644 --- a/gdb/testsuite/ChangeLog +++ b/gdb/testsuite/ChangeLog @@ -1,3 +1,7 @@ +2019-08-05 Tom de Vries + + * lib/gdb.exp (tcl_version_at_least): Fix typo. + 2019-08-04 Sandra Loosemore * gdb.server/reconnect-ctrl-c.exp: Skip if nointerrupts. diff --git a/gdb/testsuite/lib/gdb.exp b/gdb/testsuite/lib/gdb.exp index 9ca34d8..6d16217 100644 --- a/gdb/testsuite/lib/gdb.exp +++ b/gdb/testsuite/lib/gdb.exp @@ -1111,7 +1111,7 @@ proc tcl_version_at_least { major minor } { if { $tcl_version_major > $major } { return 1 } elseif { $tcl_version_major == $major \ - && $tcl_version_major >= $minor } { + && $tcl_version_minor >= $minor } { return 1 } else { return 0 -- cgit v1.1