diff options
| author | Tom Tromey <tromey@adacore.com> | 2025-07-25 12:18:14 -0600 |
|---|---|---|
| committer | Tom Tromey <tromey@adacore.com> | 2025-09-08 08:39:19 -0600 |
| commit | 58a42a843bb2973b3668c0383c95f2493f35da03 (patch) | |
| tree | dc23928697ea8ae12d87d767a34b84800d18d6c8 | |
| parent | 5d1323544e7deb3fc75b8df14556c1bdbb416340 (diff) | |
| download | binutils-58a42a843bb2973b3668c0383c95f2493f35da03.zip binutils-58a42a843bb2973b3668c0383c95f2493f35da03.tar.gz binutils-58a42a843bb2973b3668c0383c95f2493f35da03.tar.bz2 | |
Rewrite tcl_version_at_least
tcl_version_at_least can more easily be expressed using the built-in
"package" command.
Approved-By: Simon Marchi <simon.marchi@efficios.com>
| -rw-r--r-- | gdb/testsuite/lib/gdb.exp | 18 |
1 files changed, 3 insertions, 15 deletions
diff --git a/gdb/testsuite/lib/gdb.exp b/gdb/testsuite/lib/gdb.exp index 58cdd7d..b5092c6 100644 --- a/gdb/testsuite/lib/gdb.exp +++ b/gdb/testsuite/lib/gdb.exp @@ -1680,21 +1680,9 @@ proc python_version_at_least { major minor } { # Return 1 if tcl version used is at least MAJOR.MINOR.PATCHLEVEL. proc tcl_version_at_least { major minor {patchlevel 0} } { - global tcl_patchLevel - regexp {^([0-9]+)\.([0-9]+)\.([0-9]+)$} \ - $tcl_patchLevel dummy \ - tcl_version_major tcl_version_minor tcl_version_patchlevel - return \ - [version_compare \ - [list \ - $major \ - $minor \ - $patchlevel] \ - <= \ - [list \ - $tcl_version_major \ - $tcl_version_minor \ - $tcl_version_patchlevel]] + set current_version [package require Tcl] + set min_version "$major.$minor.$patchlevel" + return [expr {[package vcompare $current_version $min_version] >= 0}] } if { [tcl_version_at_least 8 6] == 0 } { |