@@ -17,7 +17,7 @@
# Test explicitly unwinding the PC DWARF register on aarch64
-if {![is_aarch64_target]} then {
+if {![is_aarch64_target]} {
verbose "Skipping ${gdb_test_file_name}."
return
}
@@ -14,7 +14,7 @@
# along with this program. If not, see <http://www.gnu.org/licenses/>.
-if ![istarget "alpha*-*-*"] then {
+if {![istarget "alpha*-*-*"]} {
verbose "Skipping alpha step tests."
return
}
@@ -37,7 +37,7 @@ proc test_stepi {function } {
# Restart the program from scratch. If GDB got confused during one
# of the previous tests, this makes sure that it doesn't affect
# this series of tests.
- if ![runto_main] then {
+ if {![runto_main]} {
return 0
}
@@ -21,7 +21,7 @@
# This file uses altivec-abi.c for input.
#
-if {![istarget "powerpc*"] || [skip_altivec_tests]} then {
+if {![istarget "powerpc*"] || [skip_altivec_tests]} {
verbose "Skipping altivec abi tests."
return
}
@@ -56,7 +56,7 @@ proc altivec_abi_tests { extra_flags force_abi } {
gdb_load ${binfile}
# Run to `main' where we begin our tests.
- if ![runto_main] then {
+ if {![runto_main]} {
return -1
}
@@ -22,7 +22,7 @@
#
-if {![istarget "powerpc*"] || [skip_altivec_tests]} then {
+if {![istarget "powerpc*"] || [skip_altivec_tests]} {
verbose "Skipping altivec register tests."
return
}
@@ -52,7 +52,7 @@ gdb_load ${binfile}
# Run to `main' where we begin our tests.
#
-if ![runto_main] then {
+if {![runto_main]} {
return 0
}
@@ -33,7 +33,7 @@ if { [gdb_compile "${srcdir}/${subdir}/${srcfile}" "${binfile}" executable [list
clean_restart ${binfile}
-if ![runto_main] then {
+if {![runto_main]} {
return 0
}
@@ -42,7 +42,7 @@ if { [prepare_for_testing "failed to prepare" ${testfile} ${srcfile} $options] }
gdb_test "set displaced-stepping on" ""
gdb_test "show displaced-stepping" ".* displaced stepping .* is on.*"
-if ![runto_main] then {
+if {![runto_main]} {
return 0
}
@@ -35,7 +35,7 @@ if { [prepare_for_testing "failed to prepare" $testfile $srcfile $opts] } {
gdb_test "set displaced-stepping on" ""
gdb_test "show displaced-stepping" ".* displaced stepping .* is on.*"
-if ![runto_main] then {
+if {![runto_main]} {
return 0
}
@@ -33,7 +33,7 @@ if { [gdb_compile "${srcdir}/${subdir}/${srcfile}" "${binfile}" executable [list
clean_restart ${binfile}
-if ![runto_main] then {
+if {![runto_main]} {
return 0
}
@@ -15,7 +15,7 @@
standard_testfile
-if { ![is_amd64_regs_target] } then {
+if {![is_amd64_regs_target]} {
verbose "Untested x86_64 fs_base and gs_base tests."
return
}
@@ -18,7 +18,7 @@
# Test initial values of x87 control registers, before any x87
# instructions have been executed in the inferior.
-if ![is_amd64_regs_target] then {
+if {![is_amd64_regs_target]} {
return
}
@@ -45,7 +45,7 @@ proc_with_prefix check_x87_regs_around_init {} {
clean_restart ${binfile}
# Get things started.
- if ![runto_main] then {
+ if {![runto_main]} {
return 0
}
@@ -119,7 +119,7 @@ proc_with_prefix check_setting_mxcsr_before_enable {} {
clean_restart ${binfile}
- if ![runto_main] then {
+ if {![runto_main]} {
return 0
}
@@ -153,7 +153,7 @@ proc_with_prefix check_setting_x87_regs_before_enable {} {
clean_restart ${binfile}
- if ![runto_main] then {
+ if {![runto_main]} {
return 0
}
@@ -33,7 +33,7 @@ if { [gdb_compile "${srcdir}/${subdir}/${srcfile}" "${binfile}" executable [list
clean_restart ${binfile}
-if ![runto_main] then {
+if {![runto_main]} {
return 0
}
@@ -15,7 +15,7 @@
# You should have received a copy of the GNU General Public License
# along with this program. If not, see <http://www.gnu.org/licenses/>.
-if {![istarget "arc*-*-*"]} then {
+if {![istarget "arc*-*-*"]} {
verbose "Skipping ARC prologue test."
return
}
@@ -31,7 +31,7 @@
# about requirements to actual test cases can be found in corresponding
# assembly file of this test case (arc-decode-insn.S).
-if {![istarget "arc*-*-*"]} then {
+if {![istarget "arc*-*-*"]} {
verbose "Skipping ARC decoder test."
return
}
@@ -15,7 +15,7 @@
# Test ARC disassembler options.
-if { ![istarget "arc-*-*"] } then {
+if {![istarget "arc-*-*"]} {
verbose "Skipping ARC disassembler option test."
return
}
@@ -18,7 +18,7 @@
# This test exercises set/show disassembler-options results are preserved
# across multiple set architecture calls.
-if {![istarget "arm*-*-*"]} then {
+if {![istarget "arm*-*-*"]} {
verbose "Skipping ARM disassembler options."
return
}
@@ -17,7 +17,7 @@
# Test arm displaced stepping.
-if {![is_aarch32_target]} then {
+if {![is_aarch32_target]} {
verbose "Skipping arm displaced stepping tests."
return
}
@@ -409,7 +409,7 @@ proc test_add_rn_pc {} {
# which is in library might be compiled in Thumb.
gdb_test_no_output "set displaced-stepping off"
-if ![runto_main] then {
+if {![runto_main]} {
return 0
}
@@ -22,7 +22,7 @@
#
-if ![istarget "powerpc-*eabispe"] then {
+if {![istarget "powerpc-*eabispe"]} {
verbose "Skipping e500 abi tests."
return
}
@@ -45,7 +45,7 @@ gdb_load ${binfile}
# Run to `main' where we begin our tests.
#
-if ![runto_main] then {
+if {![runto_main]} {
return 0
}
@@ -18,7 +18,7 @@
# Test PowerPC E500 prologue analyzer.
-if ![istarget "powerpc-*"] then {
+if {![istarget "powerpc-*"]} {
verbose "Skipping powerpc E500 prologue tests."
return
}
@@ -62,7 +62,7 @@ proc insert_breakpoint {function expected_location} {
# instruction at that address (we're not interested in the insn
# itself, but rather at the address printed at the begining of
# the instruction).
- if { $address != "" } then {
+ if {$address != ""} {
gdb_test "x /i $address" \
".*<$function\\+$expected_location>.*" \
"check $function breakpoint address"
@@ -22,7 +22,7 @@
#
-if ![istarget "powerpc-*eabispe"] then {
+if {![istarget "powerpc-*eabispe"]} {
verbose "Skipping e500 register tests."
return
}
@@ -44,7 +44,7 @@ gdb_load ${binfile}
# Run to `main' where we begin our tests.
#
-if ![runto_main] then {
+if {![runto_main]} {
return 0
}
@@ -144,7 +144,7 @@ gdb_exit
gdb_start
gdb_reinitialize_dir $srcdir/$subdir
gdb_load ${binfile}
-if ![runto_main] then {
+if {![runto_main]} {
return 0
}
@@ -24,7 +24,7 @@
# Test SH backtraces with >256 byte frame stack. (PR:1291)
-if ![istarget "sh-*-*"] then {
+if {![istarget "sh-*-*"]} {
verbose "Skipping SH backtrace tests."
return
}
@@ -46,7 +46,7 @@ gdb_load ${binfile}
# Run to `main' where we begin our tests.
#
-if ![runto_main] then {
+if {![runto_main]} {
return 0
}
@@ -26,7 +26,7 @@
# Observe that the until command doesn't go all the way to sub2.
-if ![istarget "sh-*-*"] then {
+if {![istarget "sh-*-*"]} {
verbose "Skipping SH backtrace tests."
return
}
@@ -48,7 +48,7 @@ gdb_load ${binfile}
# Run to `main' where we begin our tests.
#
-if ![runto_main] then {
+if {![runto_main]} {
return 0
}
@@ -22,7 +22,7 @@
# from main.
-if ![istarget "sh-*-*"] then {
+if {![istarget "sh-*-*"]} {
verbose "Skipping SH breakpoint test."
return
}
@@ -48,7 +48,7 @@ if { [gdb_compile "${srcdir}/${subdir}/${srcfile}" "${binfile}" executable \
clean_restart ${binfile}
-if ![runto_main] then {
+if {![runto_main]} {
return 0
}
@@ -100,7 +100,7 @@ with_test_prefix "force-disable xml descriptions" {
clean_restart ${binfile}
}
- if ![runto_main] then {
+ if {![runto_main]} {
return
}
@@ -21,7 +21,7 @@
# #define EM_X86_64 62 /* AMD x86-64 architecture */
# patch @0x12: 0x3E -> 0x03
-if { ![istarget "i?86-*-*"] && ![istarget "x86_64-*-*"] } then {
+if {![istarget "i?86-*-*"] && ![istarget "x86_64-*-*"]} {
verbose "Skipping i386 biarch core test."
return
}
@@ -18,7 +18,7 @@
# Test stepping over permanent breakpoints on i386.
-if { ![istarget "i?86-*-*"] && ![istarget "x86_64-*-*"] } then {
+if {![istarget "i?86-*-*"] && ![istarget "x86_64-*-*"]} {
verbose "Skipping skip over permanent breakpoint on i386 tests."
return
}
@@ -45,7 +45,7 @@ gdb_load ${binfile}
# Run to `main' where we begin our tests.
#
-if ![runto_main] then {
+if {![runto_main]} {
return -1
}
@@ -19,7 +19,7 @@
# This file is part of the gdb testsuite.
-if {(![istarget "x86_64-*-*"] && ![istarget "i?86-*-*"])} then {
+if {(![istarget "x86_64-*-*"] && ![istarget "i?86-*-*"])} {
verbose "Skipping i386 byte register tests."
return
}
@@ -33,7 +33,7 @@ if { [gdb_compile "${srcdir}/${subdir}/${srcfile}" "${binfile}" executable [list
clean_restart ${binfile}
-if ![runto_main] then {
+if {![runto_main]} {
return 0
}
@@ -18,7 +18,7 @@
# Test i386 displaced stepping.
-if { ![is_x86_like_target] } then {
+if {![is_x86_like_target]} {
verbose "Skipping x86 displaced stepping tests."
return
}
@@ -32,7 +32,7 @@ if { [prepare_for_testing "failed to prepare" $testfile $srcfile] } {
gdb_test "set displaced-stepping on" ""
gdb_test "show displaced-stepping" ".* displaced stepping .* is on.*"
-if ![runto_main] then {
+if {![runto_main]} {
return 0
}
@@ -19,7 +19,7 @@
# This test relies on being able to set 4 hardware watchpoints. Since
# that is not a valid assumption across most targets, and we're
# testing a x86 specific bug, skip everywhere else.
-if { ![istarget "i?86-*-*"] && ![istarget "x86_64-*-*"] } then {
+if {![istarget "i?86-*-*"] && ![istarget "x86_64-*-*"]} {
return 0
}
@@ -29,7 +29,7 @@ if [prepare_for_testing "failed to prepare" ${binfile} ${srcfile} {debug $additi
return -1
}
-if ![runto_main] then {
+if {![runto_main]} {
return -1
}
@@ -18,7 +18,7 @@
# Test the x87 floating point information printout.
-if { ![istarget "i?86-*-*"] && ![istarget "x86_64-*-*"] } then {
+if {![istarget "i?86-*-*"] && ![istarget "x86_64-*-*"]} {
verbose "Skipping i386 tests for x87 floating point support."
return
}
@@ -32,7 +32,7 @@ if { [prepare_for_testing "failed to prepare" $testfile $srcfile [list debug nop
return -1
}
-if ![runto_main] then {
+if {![runto_main]} {
return 0
}
@@ -23,7 +23,7 @@
# Test i386 unwinder.
-if { ![is_x86_like_target] } then {
+if {![is_x86_like_target]} {
verbose "Skipping i386 unwinder tests."
return
}
@@ -86,7 +86,7 @@ gdb_test "frame $gate_n" \
gdb_test_multiple "info frame" "existence of the CFI inserted register" {
-re "Stack level $gate_n, frame at (0x\[0-9a-f\]+):.*Saved registers:.* ecx at (0x\[0-9a-f\]+),.*" {
pass "existence of the CFI inserted register"
- if { [string compare $expect_out(1,string) $expect_out(2,string)] } then {
+ if {[string compare $expect_out(1,string) $expect_out(2,string)]} {
fail "value of the CFI inserted register"
} else {
pass "value of the CFI inserted register"
@@ -18,7 +18,7 @@
# Test inserting breakpoints over permanent breakpoints on i386 and amd64.
-if { ![istarget "i?86-*-*"] && ![istarget "x86_64-*-*"] } then {
+if {![istarget "i?86-*-*"] && ![istarget "x86_64-*-*"]} {
verbose "Skipping i386 test for multi break at permanent breakpoint location."
return
}
@@ -21,7 +21,7 @@
# Test i386 prologue analyzer.
-if { ![is_x86_like_target] } then {
+if {![is_x86_like_target]} {
verbose "Skipping i386 prologue tests."
return
}
@@ -65,7 +65,7 @@ gdb_load ${binfile}
# Run to `main' where we begin our tests.
#
-if ![runto_main] then {
+if {![runto_main]} {
return 0
}
@@ -15,7 +15,7 @@
# You should have received a copy of the GNU General Public License
# along with this program. If not, see <http://www.gnu.org/licenses/>.
-if { ![istarget "i?86-*-*"] && ![istarget "x86_64-*-*"] } then {
+if {![istarget "i?86-*-*"] && ![istarget "x86_64-*-*"]} {
verbose "Skipping i386 unwinder tests."
return
}
@@ -17,7 +17,7 @@
# Test that GDB can handle overlapping sizes of symbols.
-if { ![is_x86_like_target] } then {
+if {![is_x86_like_target]} {
verbose "Skipping i386 unwinder tests."
return
}
@@ -20,7 +20,7 @@
# Test that GDB can see the sizes of symbols.
-if { ![is_x86_like_target] } then {
+if {![is_x86_like_target]} {
verbose "Skipping i386 unwinder tests."
return
}
@@ -37,7 +37,7 @@ if { [gdb_compile "${srcdir}/${subdir}/${srcfile}" "${binfile}" executable $opts
clean_restart $executable
-if ![runto_main] then {
+if {![runto_main]} {
return -1
}
@@ -43,7 +43,7 @@ if { [gdb_compile "${srcdir}/${subdir}/${srcfile}" "${binfile}" executable \
clean_restart ${binfile}
-if ![runto_main] then {
+if {![runto_main]} {
return 0
}
@@ -21,7 +21,7 @@
# Test i386 unwinder.
-if { ![is_x86_like_target] } then {
+if {![is_x86_like_target]} {
verbose "Skipping i386 unwinder tests."
return
}
@@ -19,7 +19,7 @@
# This file is part of the gdb testsuite.
-if {(![istarget "x86_64-*-*"] && ![istarget "i?86-*-*"])} then {
+if {(![istarget "x86_64-*-*"] && ![istarget "i?86-*-*"])} {
verbose "Skipping i386 word register tests."
return
}
@@ -33,7 +33,7 @@ if { [gdb_compile "${srcdir}/${subdir}/${srcfile}" "${binfile}" executable [list
clean_restart ${binfile}
-if ![runto_main] then {
+if {![runto_main]} {
return 0
}
@@ -16,7 +16,7 @@
# Tests for ARM iWMMXt register setting and fetching.
-if ![istarget "arm*-*-*"] then {
+if {![istarget "arm*-*-*"]} {
verbose "Skipping iWMMXt register tests."
return
}
@@ -40,7 +40,7 @@ gdb_load ${binfile}
# Run to `main' where we begin our tests.
#
-if ![runto_main] then {
+if {![runto_main]} {
return 0
}
@@ -15,7 +15,7 @@
# Test MIPS disassembler options.
-if { ![istarget "mips*-*-*"] } then {
+if {![istarget "mips*-*-*"]} {
verbose "Skipping MIPS disassembler option tests."
return
}
@@ -17,7 +17,7 @@
# Test MIPS Floating Point Control Register handling.
-if { ![istarget "mips*-*-*"] } then {
+if {![istarget "mips*-*-*"]} {
verbose "Skipping MIPS Floating Point Control Register tests."
return
}
@@ -15,7 +15,7 @@
# Test MIPS Floating Point General Register handling in core files.
-if { ![istarget "mips*-*-*"] } then {
+if {![istarget "mips*-*-*"]} {
verbose "Skipping MIPS Floating Point General Register tests."
return
}
@@ -133,7 +133,7 @@ proc mips_fpregset_core_test { supported corefile } {
set test "core file FGR register contents"
set core_fgr_contents \
[mips_fpregset_core_fetch_float_registers "retrieve $test"]
- if { $core_fgr_contents == $live_fgr_contents } then {
+ if {$core_fgr_contents == $live_fgr_contents} {
pass $test
} else {
fail $test
@@ -25,7 +25,7 @@
# toolchain for a subset of ABIs, so we need to check that a MIPS16
# executable can be built and run at all before we attempt the actual test.
-if { ![istarget "mips*-*-*"] } then {
+if {![istarget "mips*-*-*"]} {
verbose "Skipping MIPS16 thunk support tests."
return
}
@@ -37,7 +37,7 @@ proc set_src_and_obj { filename { suffix "" } } {
global srcdir
global subdir
- if ![string equal "$suffix" ""] then {
+ if {![string equal "$suffix" ""]} {
set suffix "-$suffix"
}
set srcfile ${srcdir}/${subdir}/${filename}.c
@@ -61,7 +61,7 @@ gdb_compile ${srcfile} ${objfile} object ${options}
set binfile [standard_output_file ${testname}]
set options [list debug nowarnings]
-if { [gdb_compile ${objfiles} ${binfile} executable ${options}] != "" } then {
+if {[gdb_compile ${objfiles} ${binfile} executable ${options}] != ""} {
unsupported "no MIPS16 support in the toolchain."
return
}
@@ -116,7 +116,7 @@ gdb_compile ${srcfile} ${objfile} object ${options}
set binfile [standard_output_file ${testname}]
set options [list debug nowarnings additional_flags=-fPIC]
-if { [gdb_compile ${objfiles} ${binfile} executable ${options}] == "" } then {
+if {[gdb_compile ${objfiles} ${binfile} executable ${options}] == ""} {
clean_restart ${testname}
gdb_breakpoint inmain
gdb_run_cmd
@@ -189,7 +189,7 @@ set binfile [standard_output_file ${testname}]
set options [list debug nowarnings]
gdb_compile ${objfiles} ${binfile} executable ${options}
clean_restart ${testname}
-if ![runto_main] then {
+if {![runto_main]} {
return
}
@@ -291,7 +291,7 @@ proc finish_through { id funcs } {
# Report PASS if VAL is equal to EXP, otherwise report FAIL, using MSG.
proc pass_if_eq { val exp msg } {
- if [string equal "$val" "$exp"] then {
+ if {[string equal "$val" "$exp"]} {
pass "$msg"
} else {
fail "$msg"
@@ -304,7 +304,7 @@ proc pass_if_eq { val exp msg } {
# for the same function. If successful, then return the name of the
# function we have stopped in.
proc finish_if_ne { id func want funcs } {
- if ![string equal "$func" "$want"] then {
+ if {![string equal "$func" "$want"]} {
set call "$func"
set want [lindex $funcs 0]
set func [finish_through "$id" [linsert $funcs 0 "$func"]]
@@ -88,7 +88,7 @@ proc get_addr_of_sym { sym } {
return $addr
}
-if ![runto_main] then {
+if {![runto_main]} {
return 0
}
@@ -124,7 +124,7 @@ proc test_core_bt { test } {
}
set test "core at last insn in foo"
-if ![runto_main] then {
+if {![runto_main]} {
return 0
}
gdb_breakpoint "*$foo_last"
@@ -134,7 +134,7 @@ if [gen_core $test] {
}
set test "core at nullified insn"
-if ![runto_main] then {
+if {![runto_main]} {
return 0
}
gdb_breakpoint "*$foo_last"
@@ -38,7 +38,7 @@ if { [prepare_for_testing "failed to prepare" $testfile "$srcfile" \
return -1
}
-if ![runto_main] then {
+if {![runto_main]} {
return
}
@@ -18,7 +18,7 @@
# Test rs6000 prologue analyzer.
-if ![istarget "powerpc-*-aix*"] then {
+if {![istarget "powerpc-*-aix*"]} {
verbose "Skipping powerpc-aix prologue tests."
return
}
@@ -62,7 +62,7 @@ proc insert_breakpoint {function expected_location} {
# instruction at that address (we're not interested in the insn
# itself, but rather at the address printed at the begining of
# the instruction).
- if { $address != "" } then {
+ if {$address != ""} {
gdb_test "x /i $address" \
".*<$function\\+$expected_location>.*" \
"check $function breakpoint address"
@@ -20,7 +20,7 @@
standard_testfile .s
set objfile [standard_output_file ${testfile}.o]
-if {![istarget "powerpc*-*-*"]} then {
+if {![istarget "powerpc*-*-*"]} {
verbose "Skipping PowerPC instructions disassembly."
return
}
@@ -20,7 +20,7 @@
standard_testfile .s
set objfile [standard_output_file ${testfile}.o]
-if {![istarget "powerpc*-*-*"]} then {
+if {![istarget "powerpc*-*-*"]} {
verbose "Skipping PowerPC instructions disassembly."
return
}
@@ -20,7 +20,7 @@
standard_testfile .s
set objfile [standard_output_file ${testfile}.o]
-if {![istarget "powerpc*-*-*"]} then {
+if {![istarget "powerpc*-*-*"]} {
verbose "Skipping PowerPC instructions disassembly."
return
}
@@ -20,7 +20,7 @@
# Testcase for ppc decimal128 pseudo-registers.
-if ![istarget "powerpc64*-*"] then {
+if {![istarget "powerpc64*-*"]} {
verbose "Skipping powerpc Decimal128 pseudo-registers testcase."
return
}
@@ -39,7 +39,7 @@ gdb_start
gdb_reinitialize_dir $srcdir/$subdir
gdb_load ${binfile}
-if { ![runto_main] } then {
+if {![runto_main]} {
return
}
@@ -18,7 +18,7 @@
# This test exercises set/show disassembler-options results are preserved
# across multiple set architecture calls.
-if {![istarget "powerpc*-*-*"]} then {
+if {![istarget "powerpc*-*-*"]} {
verbose "Skipping PowerPC disassembler options."
return
}
@@ -18,7 +18,7 @@
# This tests checks that generating and loading a core file preserves
# the correct FPSCR size.
-if {![istarget "powerpc*-*-linux*"]} then {
+if {![istarget "powerpc*-*-linux*"]} {
verbose "Skipping PowerPC test for corefiles with FPSCR."
return
}
@@ -39,7 +39,7 @@ if {[build_executable "compile" $binfile $gen_src] == -1} {
clean_restart $binfile
-if ![runto_main] then {
+if {![runto_main]} {
return -1
}
@@ -25,7 +25,7 @@
# registers are then checked against the saved values, because the
# abort should have reverted the registers to these values.
-if {![istarget "powerpc*-*-linux*"]} then {
+if {![istarget "powerpc*-*-linux*"]} {
verbose "Skipping PowerPC test for HTM registers."
return
}
@@ -37,7 +37,7 @@ if { [prepare_for_testing "failed to prepare" $testfile "$srcfile" \
return -1
}
-if ![runto_main] then {
+if {![runto_main]} {
return
}
@@ -33,7 +33,7 @@ if { [prepare_for_testing "failed to prepare" $testfile "$srcfile" \
gdb_test "set radix 0b10000"
gdb_test "set debug displaced"
-if ![runto_main] then {
+if {![runto_main]} {
return
}
@@ -20,7 +20,7 @@
standard_testfile .s
set objfile [standard_output_file ${testfile}.o]
-if {![istarget "powerpc*-*-*"]} then {
+if {![istarget "powerpc*-*-*"]} {
verbose "Skipping PowerPC instructions disassembly."
return
}
@@ -20,7 +20,7 @@
standard_testfile .s
set objfile [standard_output_file ${testfile}.o]
-if {![istarget "powerpc*-*-*"]} then {
+if {![istarget "powerpc*-*-*"]} {
verbose "Skipping PowerPC instructions disassembly."
return
}
@@ -20,7 +20,7 @@
standard_testfile .s
set objfile [standard_output_file ${testfile}.o]
-if {![istarget "powerpc*-*-*"]} then {
+if {![istarget "powerpc*-*-*"]} {
verbose "Skipping PowerPC instructions disassembly."
return
}
@@ -20,7 +20,7 @@
standard_testfile .s
set objfile [standard_output_file ${testfile}.o]
-if {![istarget "powerpc*-*-*"]} then {
+if {![istarget "powerpc*-*-*"]} {
verbose "Skipping PowerPC instructions disassembly."
return
}
@@ -20,7 +20,7 @@
# values, then write to the registers trough GDB, step once, and check
# again if we read back the same values.
-if {![istarget "powerpc*-*-linux*"]} then {
+if {![istarget "powerpc*-*-linux*"]} {
verbose "Skipping PowerPC test for PPR and DSCR registers."
return
}
@@ -17,7 +17,7 @@
# Do not run on AIX (where we won't be able to build the tests without
# some surgery) or on PowerPC64 (ditto, dot symbols).
-if {[istarget *-*-aix*] || ![istarget "powerpc-*-*"]} then {
+if {[istarget *-*-aix*] || ![istarget "powerpc-*-*"]} {
verbose "Skipping PowerPC prologue tests."
return
}
@@ -43,7 +43,7 @@ gdb_load ${binfile}
# Run to `main' where we begin our tests.
#
-if ![runto_main] then {
+if {![runto_main]} {
return 0
}
@@ -15,7 +15,7 @@
# Testcase for PR tdep/17379.
-if {![istarget "powerpc*-*-*"]} then {
+if {![istarget "powerpc*-*-*"]} {
verbose "Skipping powerpc-stackless.exp"
return
}
@@ -22,7 +22,7 @@
# branch to TAR and check that we stop at the address that we wrote to
# register.
-if {![istarget "powerpc*-*-linux*"]} then {
+if {![istarget "powerpc*-*-linux*"]} {
verbose "Skipping PowerPC test for the TAR register."
return
}
@@ -18,7 +18,7 @@
# This test checks that generating and loading a core file preserves
# the correct VSX register state.
-if {![istarget "powerpc*-*-linux*"] || [skip_vsx_tests]} then {
+if {![istarget "powerpc*-*-linux*"] || [skip_vsx_tests]} {
verbose "Skipping PowerPC test for corefiles with VSX registers."
return
}
@@ -39,7 +39,7 @@ if {[build_executable "compile" $binfile $gen_src] == -1} {
clean_restart $binfile
-if ![runto_main] then {
+if {![runto_main]} {
return -1
}
@@ -20,7 +20,7 @@
standard_testfile .s
set objfile [standard_output_file ${testfile}.o]
-if {![istarget "powerpc*-*-*"]} then {
+if {![istarget "powerpc*-*-*"]} {
verbose "Skipping PowerPC instructions disassembly."
return
}
@@ -20,7 +20,7 @@
standard_testfile .s
set objfile [standard_output_file ${testfile}.o]
-if {![istarget "powerpc*-*-*"]} then {
+if {![istarget "powerpc*-*-*"]} {
verbose "Skipping PowerPC instructions disassembly."
return
}
@@ -20,7 +20,7 @@
standard_testfile .s
set objfile [standard_output_file ${testfile}.o]
-if {![istarget "powerpc*-*-*"]} then {
+if {![istarget "powerpc*-*-*"]} {
verbose "Skipping PowerPC instructions disassembly."
return
}
@@ -17,7 +17,7 @@
# Do not run on AIX (where we won't be able to build the tests without
# some surgery) or on PowerPC64 (ditto, dot symbols).
-if {[istarget *-*-aix*] || ![istarget "powerpc*-*-*"]} then {
+if {[istarget *-*-aix*] || ![istarget "powerpc*-*-*"]} {
verbose "Skipping PowerPC prologue tests."
return
}
@@ -37,7 +37,7 @@ if { [prepare_for_testing "failed to prepare" $testfile "$srcfile" \
}
# Run to `main' where we begin our tests.
-if ![runto_main] then {
+if {![runto_main]} {
return 0
}
@@ -16,7 +16,7 @@
# Tests for Powerpc Decimal Floating Point registers setting and fetching
-if ![istarget "powerpc*"] then {
+if {![istarget "powerpc*"]} {
verbose "Skipping powerpc decimal floating point register tests."
return
}
@@ -16,7 +16,7 @@
# Tests for Powerpc floating point register setting and fetching
-if ![istarget "powerpc*"] then {
+if {![istarget "powerpc*"]} {
verbose "Skipping powerpc floating point register tests."
return
}
@@ -13,7 +13,7 @@
# You should have received a copy of the GNU General Public License
# along with this program. If not, see <http://www.gnu.org/licenses/>.
-if ![istarget "powerpc*"] then {
+if {![istarget "powerpc*"]} {
verbose "Skipping powerpc long-double floating point tests."
return
}
@@ -27,13 +27,13 @@ proc do_test { name {opts {}} } {
set lines [gdb_compile "${srcdir}/${subdir}/${srcfile}" "$binfile.$name" executable $ccopts]
# We get this warning even with the nowarnings option ...
regsub -all "(^|\n)\[^\n\]*using \[^\n\]* extended precision long double" $lines "" lines
- if { $lines != "" } then {
+ if {$lines != ""} {
return
}
clean_restart ${binfile}.${name}
- if ![runto_main] then {
+ if {![runto_main]} {
return
}
@@ -36,7 +36,7 @@ if { [prepare_for_testing "failed to prepare" ${testfile} ${srcfile} {debug quie
proc do_test { displaced } {
global decimal hex
- if ![runto_main] then {
+ if {![runto_main]} {
return -1
}
@@ -45,7 +45,7 @@ if { [prepare_for_testing "failed to prepare" ${testfile} \
return -1
}
-if ![runto_main] then {
+if {![runto_main]} {
return 0
}
@@ -40,7 +40,7 @@ proc do_test { displaced } {
global decimal hex
global gdb_prompt inferior_exited_re srcfile srcfile2
- if ![runto_main] then {
+ if {![runto_main]} {
return -1
}
@@ -16,7 +16,7 @@
# Test proper disassembling of ARM thumb instructions when reloading a symbol
# file.
-if {![is_aarch32_target]} then {
+if {![is_aarch32_target]} {
verbose "Skipping ARM tests."
return
}
@@ -27,7 +27,7 @@ if {[prepare_for_testing "failed to prepare" $testfile $srcfile debug]} {
return -1
}
-if ![runto_main] then {
+if {![runto_main]} {
return 0
}
@@ -32,7 +32,7 @@ if {[prepare_for_testing "failed to prepare" $testfile $srcfile debug]} {
return -1
}
-if ![runto_main] then {
+if {![runto_main]} {
return 0
}
@@ -24,7 +24,7 @@ if {[prepare_for_testing "failed to prepare" $testfile $srcfile debug]} {
return -1
}
-if ![runto_main] then {
+if {![runto_main]} {
return 0
}
@@ -39,7 +39,7 @@ foreach_with_prefix {insn_size} {6 8} {
return -1
}
- if ![runto_main] then {
+ if {![runto_main]} {
return 0
}
@@ -28,7 +28,7 @@ if {[prepare_for_testing "failed to prepare" $testfile \
return -1
}
-if ![runto_main] then {
+if {![runto_main]} {
return 0
}
@@ -27,7 +27,7 @@ if {[prepare_for_testing "failed to prepare" $testfile \
return -1
}
-if ![runto_main] then {
+if {![runto_main]} {
fail "can't run to main"
return 0
}
@@ -18,7 +18,7 @@
# This test exercises set/show disassembler-options results are preserved
# across multiple set architecture calls.
-if {![istarget "s390*-*-*"]} then {
+if {![istarget "s390*-*-*"]} {
verbose "Skipping S390 disassembler options."
return
}
@@ -13,7 +13,7 @@
# You should have received a copy of the GNU General Public License
# along with this program. If not, see <http://www.gnu.org/licenses/>.
-if {![istarget "s390*-*-*"]} then {
+if {![istarget "s390*-*-*"]} {
verbose "Skipping s390 stackless test."
return
}
@@ -35,7 +35,7 @@ if { [prepare_for_testing "failed to prepare" $testfile $srcfile \
return -1
}
-if ![runto_main] then {
+if {![runto_main]} {
return 0
}
@@ -21,7 +21,7 @@
# PC must be extracted from the sigreturn register save area in the
# stack.
-if ![istarget "sparc*-*-linux*"] then {
+if {![istarget "sparc*-*-linux*"]} {
return 0
}
@@ -18,7 +18,7 @@
# Basic tests of examining/assigning ADI version tags, and reporting
# precise mismatch.
-if ![istarget "sparc64*-*-linux*"] then {
+if {![istarget "sparc64*-*-linux*"]} {
verbose "Skipping sparc64 ADI test."
return 0
}
@@ -30,7 +30,7 @@ if { [prepare_for_testing "failed to prepare" $testfile $srcfile \
return -1
}
-if ![runto_main] then {
+if {![runto_main]} {
return -1
}
@@ -18,7 +18,7 @@
# Tests decoding of various sparc64 registers.
# At the moment, only few registers are tested, but more can be added in future.
-if ![istarget "sparc64*-*-linux*"] then {
+if {![istarget "sparc64*-*-linux*"]} {
verbose "Skipping sparc64 register tests."
return 0
}
@@ -29,7 +29,7 @@ if { [prepare_for_testing "failed to prepare" ${testfile} ${srcfile}] } {
return -1
}
-if ![runto_main] then {
+if {![runto_main]} {
return 0
}
@@ -15,7 +15,7 @@
# Test PC adjustment from Thumb-mode "bx pc" instruction.
-if {![is_aarch32_target]} then {
+if {![is_aarch32_target]} {
verbose "Skipping ARM tests."
return
}
@@ -28,7 +28,7 @@ if [prepare_for_testing "failed to prepare" ${testfile} ${srcfile} $opts] {
return -1
}
-if ![runto_main] then {
+if {![runto_main]} {
return -1
}
@@ -15,7 +15,7 @@
# Test ARM/Thumb prologue analyzer.
-if {![is_aarch32_target]} then {
+if {![is_aarch32_target]} {
verbose "Skipping ARM prologue tests."
return
}
@@ -39,7 +39,7 @@ gdb_load ${binfile}
# Run to `main' where we begin our tests.
#
-if ![runto_main] then {
+if {![runto_main]} {
return -1
}
@@ -15,7 +15,7 @@
# Test single-stepping into incorrectly marked Thumb routine
-if {![is_aarch32_target]} then {
+if {![is_aarch32_target]} {
verbose "Skipping ARM tests."
return
}
@@ -28,7 +28,7 @@ if [prepare_for_testing "failed to prepare" ${testfile} ${srcfile} [list debug $
return -1
}
-if ![runto_main] then {
+if {![runto_main]} {
return -1
}
@@ -15,7 +15,7 @@
# Test single stepping over Thumb-2 IT blocks.
-if {![istarget arm*-*eabi*]} then {
+if {![istarget arm*-*eabi*]} {
verbose "Skipping Thumb-2 tests."
return
}
@@ -32,7 +32,7 @@ gdb_start
gdb_reinitialize_dir $srcdir/$subdir
gdb_load ${binfile}
-if ![runto_main] then {
+if {![runto_main]} {
return -1
}
@@ -19,7 +19,7 @@
#
-if {![istarget "powerpc*"] || [skip_vsx_tests]} then {
+if {![istarget "powerpc*"] || [skip_vsx_tests]} {
verbose "Skipping vsx register tests."
return
}
@@ -47,7 +47,7 @@ gdb_load ${binfile}
# Run to `main' where we begin our tests.
-if ![runto_main] then {
+if {![runto_main]} {
return 0
}
@@ -19,7 +19,7 @@
#
-if {![istarget "powerpc*"] || [skip_vsx_tests]} then {
+if {![istarget "powerpc*"] || [skip_vsx_tests]} {
verbose "Skipping vsr float128 field tests."
return
}
@@ -47,7 +47,7 @@ gdb_load ${binfile}
# Run to `main' where we begin our tests.
-if ![runto_main] then {
+if {![runto_main]} {
return 0
}