[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  <tdevries@suse.de>

	* lib/gdb.exp (tcl_version_at_least): Fix typo.
This commit is contained in:
Tom de Vries 2019-08-05 12:51:58 +02:00
parent e17869db99
commit d096283854
2 changed files with 5 additions and 1 deletions

View File

@ -1,3 +1,7 @@
2019-08-05 Tom de Vries <tdevries@suse.de>
* lib/gdb.exp (tcl_version_at_least): Fix typo.
2019-08-04 Sandra Loosemore <sandra@codesourcery.com>
* gdb.server/reconnect-ctrl-c.exp: Skip if nointerrupts.

View File

@ -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