From: Tom de Vries <tdevries@suse.de>
Date: Wed, 17 Sep 2025 04:53:14 +0000 (+0200)
Subject: [gdb/testsuite, tclint] Fix gdb.ctf
X-Git-Url: http://git.ipfire.org/?a=commitdiff_plain;h=4ce8569e476b95267fac79a6a5cfe9e25953f40e;p=thirdparty%2Fbinutils-gdb.git

[gdb/testsuite, tclint] Fix gdb.ctf

Running tclint on the test-cases in gdb.ctf shows a few problems.

Fix these.

Tested on x86_64-linux.
---

diff --git a/gdb/testsuite/gdb.ctf/funcreturn.exp b/gdb/testsuite/gdb.ctf/funcreturn.exp
index 4d135313a18..55ee969c3c9 100644
--- a/gdb/testsuite/gdb.ctf/funcreturn.exp
+++ b/gdb/testsuite/gdb.ctf/funcreturn.exp
@@ -15,7 +15,7 @@
 
 require allow_ctf_tests
 
-if [target_info exists no_long_long] {
+if {[target_info exists no_long_long]} {
     set exec_opts [list debug additional_flags=-DNO_LONG_LONG]
 } else {
     set exec_opts [list debug]
@@ -91,7 +91,7 @@ gdb_test "print v_unsigned_long_func" \
     "$decimal = \{unsigned long|long \\(\\)\} 0x\[0-9a-z\]+ <v_unsigned_long_func>.*" \
     "print unsigned long function"
 
-if ![target_info exists no_long_long] {
+if {![target_info exists no_long_long]} {
     gdb_test "print v_long_long_func" \
 	    "$decimal = \{long long \\(\\)\} 0x\[0-9a-z\]+ <v_long_long_func>.*" \
 		"print long long function"
@@ -164,7 +164,7 @@ gdb_test "whatis v_unsigned_long_func" \
     "type = (unsigned (int|long|long int)|long unsigned int) \\($void\\)" \
     "whatis unsigned long function"
 
-if ![target_info exists no_long_long] {
+if {![target_info exists no_long_long]} {
     gdb_test "whatis v_long_long_func" \
 	"type = long long(| int) \\($void\\)" \
 	"whatis long long function"