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>

diff --git a/gdb/testsuite/lib/gdb.exp b/gdb/testsuite/lib/gdb.exp
index 58cdd7d672c7ef82ad9497bc66322291e3fa779b..b5092c6132bb9ae093b81da80570b8452feb6403 100644 (file)
--- 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 } {