diff options
| author | Tom de Vries <tdevries@suse.de> | 2019-08-05 12:51:58 +0200 |
|---|---|---|
| committer | Tom de Vries <tdevries@suse.de> | 2019-08-05 12:51:58 +0200 |
| commit | d09628385443574b556f2beaaba7588a2a5fb4c0 (patch) | |
| tree | e9bbb96de8d967cc9cbfbe90d9047dfdcf015bba /gdb | |
| parent | e17869db99195849826eaaf5d2d0eb2cfdd7a2a7 (diff) | |
| download | gdb-d09628385443574b556f2beaaba7588a2a5fb4c0.zip gdb-d09628385443574b556f2beaaba7588a2a5fb4c0.tar.gz gdb-d09628385443574b556f2beaaba7588a2a5fb4c0.tar.bz2 | |
[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.
Diffstat (limited to 'gdb')
| -rw-r--r-- | gdb/testsuite/ChangeLog | 4 | ||||
| -rw-r--r-- | gdb/testsuite/lib/gdb.exp | 2 |
2 files changed, 5 insertions, 1 deletions
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 <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. 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 |