[committed][gdb/testsuite] Fix typo in tcl_version_at_least

[Tom de Vries]

[ was: [committed][gdb/testsuite] Fix gdb.base/structs.exp timeout with
check-read1 ]

On 01-08-19 10:58, Tom de Vries wrote:
> +# Return 1 if tcl version used is at least MAJOR.MINOR
> +proc tcl_version_at_least { major minor } {
> +    global tcl_version
> +    regexp {^([0-9]+)\.([0-9]+)$} $tcl_version \
> +	dummy tcl_version_major tcl_version_minor
> +    if { $tcl_version_major > $major } {
> +        return 1
> +    } elseif { $tcl_version_major == $major \
> +		   && $tcl_version_major >= $minor } {
> +        return 1
> +    } else {
> +        return 0
> +    }
> +}

This fixes a typo in the previous commit.

Thanks,
- Tom
-------------- next part --------------
A non-text attachment was scrubbed...
Name: 0001-gdb-testsuite-Fix-typo-in-tcl_version_at_least.patch
Type: text/x-patch
Size: 1006 bytes
Desc: not available
URL: <http://sourceware.org/pipermail/gdb-patches/attachments/20190805/2560140d/attachment.bin>