Rename skip_power_isa_3_1_tests to allow form
authorTom Tromey <tom@tromey.com>
Sun, 22 Jan 2023 16:12:30 +0000 (09:12 -0700)
committerTom Tromey <tom@tromey.com>
Wed, 25 Jan 2023 16:02:11 +0000 (09:02 -0700)
This renames skip_power_isa_3_1_tests to allow_power_isa_3_1_tests and
updates its users to use require.

gdb/testsuite/gdb.arch/powerpc-plxv-nonrel.exp
gdb/testsuite/gdb.reverse/ppc_record_test_isa_3_1.exp
gdb/testsuite/lib/gdb.exp

index a1aacb05070a7c6a7ab307523f59392b5e4d852b..1ad3ea8bde431a69968b0c6fdd602e64675e7397 100644 (file)
 # Test to see if gdb is properly single stepping over the
 # displaced plxv instruction.
 
-if { ![istarget powerpc*-*] || [skip_power_isa_3_1_tests] } {
+if { ![istarget powerpc*-*] } {
     verbose "Skipping powerpc ISA 3.1 plxv test."
     return
 }
+require allow_power_isa_3_1_tests
 
 set retval 0
 
index f6bf4857fdfbe96a170a384cbb4a34750ea66140..7a291aaa49dabfc72c0ae19684ae6d6de073a888 100644 (file)
@@ -37,10 +37,11 @@ standard_testfile
 set gen_src record_test_isa_3_1.c
 set executable record_test_isa_3_1
 
-if {![istarget "powerpc*"] || [skip_power_isa_3_1_tests]}  {
+if {![istarget "powerpc*"]}  {
     verbose "Skipping PowerPC ISA 3.1 instruction record_test."
     return
 }
+require allow_power_isa_3_1_tests
 
 set options [list additional_flags=-mcpu=power10 debug]
 if {[build_executable "failed to prepare" $executable $srcfile $options] == -1} {
index 2c53ebe77749a496938c9760d60fa9f85584e4f8..5425ae74cb9dcb416a42438ca62d8f92a4d16f41 100644 (file)
@@ -3525,10 +3525,10 @@ gdb_caching_proc allow_altivec_tests {
 }
 
 # Run a test on the power target to see if it supports ISA 3.1 instructions
-gdb_caching_proc skip_power_isa_3_1_tests {
+gdb_caching_proc allow_power_isa_3_1_tests {
     global srcdir subdir gdb_prompt inferior_exited_re
 
-    set me "skip_power_isa_3_1_tests"
+    set me "allow_power_isa_3_1_tests"
 
     # Compile a test program containing ISA 3.1 instructions.
     set src {
@@ -3540,7 +3540,7 @@ gdb_caching_proc skip_power_isa_3_1_tests {
        }
 
     if {![gdb_simple_compile $me $src executable ]} {
-        return 1
+       return 0
     }
 
     # No error message, compilation succeeded so now run it via gdb.
@@ -3553,22 +3553,22 @@ gdb_caching_proc skip_power_isa_3_1_tests {
     gdb_expect {
         -re ".*Illegal instruction.*${gdb_prompt} $" {
             verbose -log "\n$me Power ISA 3.1 hardware not detected"
-            set skip_power_isa_3_1_tests 1
+           set allow_power_isa_3_1_tests 0
         }
         -re ".*$inferior_exited_re normally.*${gdb_prompt} $" {
             verbose -log "\n$me: Power ISA 3.1 hardware detected"
-            set skip_power_isa_3_1_tests 0
+           set allow_power_isa_3_1_tests 1
         }
         default {
-          warning "\n$me: default case taken"
-            set skip_power_isa_3_1_tests 1
+           warning "\n$me: default case taken"
+           set allow_power_isa_3_1_tests 0
         }
     }
     gdb_exit
     remote_file build delete $obj
 
-    verbose "$me:  returning $skip_power_isa_3_1_tests" 2
-    return $skip_power_isa_3_1_tests
+    verbose "$me:  returning $allow_power_isa_3_1_tests" 2
+    return $allow_power_isa_3_1_tests
 }
 
 # Run a test on the target to see if it supports vmx hardware.  Return 0 if so,