[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 4d135313a1841d509315aa1b429902b7c7baee3e..55ee969c3c97d0436a0a9da5743848d52840dbcd 100644 (file)
--- 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"