[gdb/testsuite] Fix typo in tcl_version_at_least
authorTom de Vries <tdevries@suse.de>
Mon, 5 Aug 2019 10:51:58 +0000 (12:51 +0200)
committerTom de Vries <tdevries@suse.de>
Mon, 5 Aug 2019 10:51:58 +0000 (12:51 +0200)
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.

gdb/testsuite/ChangeLog
gdb/testsuite/lib/gdb.exp

index fe156ea..b53913c 100644 (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.
index 9ca34d8..6d16217 100644 (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