Remove Cell Broadband Engine debugging support

[deliverable/binutils-gdb.git] / gdb / testsuite / gdb.xml / tdesc-regs.exp

diff --git a/gdb/testsuite/gdb.xml/tdesc-regs.exp b/gdb/testsuite/gdb.xml/tdesc-regs.exp
index 8f0eb4192a3d8fd063014443eba3a527a84954e8..efd2227dd543224e229ef7f4dc263d1b0dec3139 100644 (file)
--- a/gdb/testsuite/gdb.xml/tdesc-regs.exp
+++ b/gdb/testsuite/gdb.xml/tdesc-regs.exp
@@ -1,4 +1,4 @@
-# Copyright 2007-2015 Free Software Foundation, Inc.
+# Copyright 2007-2019 Free Software Foundation, Inc.
 
 # This program is free software; you can redistribute it and/or modify
 # it under the terms of the GNU General Public License as published by
@@ -27,7 +27,15 @@ set core-regs ""
 set regdir ""
 set architecture ""
 switch -glob -- [istarget] {
+    "aarch64*-*-*" {
+       set core-regs {aarch64-core.xml}
+    }
+    "arc*-*-*" {
+       set architecture "arc:ARCv2"
+       set core-regs {arc-v2.xml}
+    }
     "arm*-*-*" {
+       set regdir "arm/"
         set core-regs {arm-core.xml}
     }
     "*m68k-*-*" {
@@ -36,9 +44,15 @@ switch -glob -- [istarget] {
     "mips*-*-*" {
        set core-regs {mips-cpu.xml mips-cp0.xml mips-fpu.xml mips-dsp.xml}
     }
+    "nds32*-*-*" {
+       set core-regs {nds32-core.xml}
+    }
     "nios2-*-*" {
        set core-regs {nios2-cpu.xml}
     }
+    "or1k-*-*" {
+       set core-regs {or1k-core.xml}
+    }
     "powerpc*-*-*" {
        set regdir "rs6000/"
        set core-regs {power-core.xml}
@@ -46,15 +60,14 @@ switch -glob -- [istarget] {
     "s390*-*-*" {
        set core-regs {s390-core32.xml s390-acr.xml s390-fpr.xml}
     }
-    "spu*-*-*" {
-       # This may be either the spu-linux-nat target, or the Cell/B.E.
-       # multi-architecture debugger in SPU standalone executable mode.
-       # We do not support XML register sets on SPU in either case.
-       # However, the multi-arch debugger will accept XML registers sets
-       # (on the PowerPC side), hence the test below would fail.
-       # Simply return unconditionally here.
-       unsupported "register tests"
-       return 0
+    "sparc-*-*" {
+       set regdir "sparc/"
+        set core-regs {sparc32-cpu.xml sparc32-fpu.xml sparc32-cp0.xml}
+    }
+    "sparc64-*-*" {
+       set architecture "sparc:v9"
+       set regdir "sparc/"
+        set core-regs {sparc64-cpu.xml sparc64-fpu.xml sparc64-cp0.xml}
     }
     "tic6x-*-*" {
        set core-regs {tic6x-core.xml}
@@ -103,7 +116,7 @@ foreach src ${core-regs} {
 }
 
 # Similarly, we need to copy files under test into the objdir.
-proc load_description { file errmsg } {
+proc load_description { file errmsg xml_file } {
     global srcdir
     global subdir
     global gdb_prompt
@@ -111,7 +124,7 @@ proc load_description { file errmsg } {
     global architecture
     global remote_filename
 
-    set regs_file [standard_output_file regs.xml]
+    set regs_file [standard_output_file $xml_file]
 
     file delete $regs_file
     set ifd [open "$srcdir/$subdir/$file" r]
@@ -132,22 +145,18 @@ proc load_description { file errmsg } {
     close $ofd
 
     if {[is_remote host]} {
-       set regs_file [remote_download host "$subdir/regs.xml" "regs.xml"]
+       set regs_file [remote_download host "$subdir/$xml_file" $xml_file]
     }
 
     # Anchor the test output, so that error messages are detected.
     set cmd "set tdesc filename [file tail $regs_file]"
-    set msg "set tdesc filename regs.xml - from $file"
+    set msg "set tdesc filename $xml_file - from $file"
     set cmd_regex [string_to_regexp $cmd]
     gdb_test_multiple $cmd $msg {
        -re "^$cmd_regex\r\n$errmsg$gdb_prompt $" {
            pass $msg
        }
     }
-
-    if {[is_remote host]} {
-       remote_file host delete "regs.xml"
-    }
 }
 
 if {![is_remote host]} {
@@ -155,19 +164,26 @@ if {![is_remote host]} {
        "cd to directory holding xml"
 }
 
-load_description "extra-regs.xml" ""
+load_description "extra-regs.xml" "" "test-extra-regs.xml"
 gdb_test "ptype \$extrareg" "type = (int|long|long long)"
 gdb_test "ptype \$uintreg" "type = uint32_t"
 gdb_test "ptype \$vecreg" "type = int8_t __attribute__ \\(\\(vector_size\\(4\\)\\)\\)"
 gdb_test "ptype \$unionreg" \
-    "type = union {\r\n *v4int8 v4;\r\n *v2int16 v2;\r\n}"
+    "type = union vecint {\r\n *v4int8 v4;\r\n *v2int16 v2;\r\n}"
 gdb_test "ptype \$unionreg.v4" "type = int8_t __attribute__ \\(\\(vector_size\\(4\\)\\)\\)"
 gdb_test "ptype \$structreg" \
     "type = struct struct1 {\r\n *v4int8 v4;\r\n *v2int16 v2;\r\n}"
 gdb_test "ptype \$structreg.v4" "type = int8_t __attribute__ \\(\\(vector_size\\(4\\)\\)\\)"
 gdb_test "ptype \$bitfields" \
     "type = struct struct2 {\r\n *uint64_t f1 : 35;\r\n *uint64_t f2 : 1;\r\n}"
-
-load_description "core-only.xml" ""
+gdb_test "ptype \$flags" \
+    "type = flag flags {\r\n *bool X @0;\r\n *uint32_t Y @2;\r\n}"
+gdb_test "ptype \$mixed_flags" \
+    "type = flag mixed_flags {\r\n *bool A @0;\r\n *uint32_t B @1-3;\r\n *bool C @4;\r\n *uint32_t D @5;\r\n *uint32_t @6-7;\r\n *enum Z_values {yes = 1, no = 0, maybe = 2, so} Z @8-9;\r\n}"
+# Reggroups should have at least general and the extra foo group
+gdb_test "maintenance print reggroups" \
+    " Group\[ \t\]+Type\[ \t\]+\r\n.* general\[ \t\]+user\[ \t\]+\r\n.* foo\[ \t\]+user\[ \t\]+"
+
+load_description "core-only.xml" "" "test-regs.xml"
 # The extra register from the previous description should be gone.
 gdb_test "ptype \$extrareg" "type = void"