[binutils-gdb] [gdb/testsuite, tclint] Fix lib/aarch64.exp

[Tom de Vries]

https://sourceware.org/git/gitweb.cgi?p=binutils-gdb.git;h=cf08391ee5e72cd897dd1aaf8b795c2627162265

commit cf08391ee5e72cd897dd1aaf8b795c2627162265
Author: Tom de Vries <tdevries@suse.de>
Date:   Sun Oct 5 22:50:10 2025 +0200

    [gdb/testsuite, tclint] Fix lib/aarch64.exp

Diff:
---
 gdb/tclint.toml               | 1 -
 gdb/testsuite/lib/aarch64.exp | 8 ++++----
 2 files changed, 4 insertions(+), 5 deletions(-)

diff --git a/gdb/tclint.toml b/gdb/tclint.toml
index 138b6fcade7..bd5203927eb 100644
--- a/gdb/tclint.toml
+++ b/gdb/tclint.toml
@@ -33,7 +33,6 @@ exclude = [
 # TODO:
 "gdb/testsuite/boards",
 "gdb/testsuite/config",
-"gdb/testsuite/lib/aarch64.exp",
 "gdb/testsuite/lib/aarch64-scalable.exp",
 "gdb/testsuite/lib/gdb.exp",
 # IGNORE (document reason in trailing comment):
diff --git a/gdb/testsuite/lib/aarch64.exp b/gdb/testsuite/lib/aarch64.exp
index ef644892d4f..0d3ed836674 100644
--- a/gdb/testsuite/lib/aarch64.exp
+++ b/gdb/testsuite/lib/aarch64.exp
@@ -78,7 +78,7 @@ proc initialize_1d_array { name byte elements } {
 	append data $byte
 
 	# If this isn't the last element, add a comma.
-	if {[expr $element + 1] < $elements} {
+	if {$element + 1 < $elements} {
 	    append data ", "
 	}
     }
@@ -101,7 +101,7 @@ proc initialize_2d_array { name byte rows columns } {
     set brace_open "{"
     set brace_close "}"
 
-    if {[expr $rows * $columns] <= 256} {
+    if {$rows * $columns <= 256} {
 	# Build the assignment in a single shot, as we have a maximum of 256
 	# elements.
 	for {set row 0} {$row < $rows} {incr row} {
@@ -111,7 +111,7 @@ proc initialize_2d_array { name byte rows columns } {
 		append data $byte
 
 		# If this isn't the last column, add a comma.
-		if {[expr $column + 1] < $columns} {
+		if {$column + 1 < $columns} {
 		    append data ", "
 		}
 	    }
@@ -119,7 +119,7 @@ proc initialize_2d_array { name byte rows columns } {
 	    append data $brace_close
 
 	    # If this isn't the last row, add a comma.
-	    if {[expr $row + 1] < $rows} {
+	    if {$row + 1 < $rows} {
 		append data ","
 	    }
 	}