diff options
author | Jim Kingdon <jkingdon@engr.sgi.com> | 1993-06-26 03:30:24 +0000 |
---|---|---|
committer | Jim Kingdon <jkingdon@engr.sgi.com> | 1993-06-26 03:30:24 +0000 |
commit | 2de1aa1cc95556ade5e1d15ec756b2b98241fe8c (patch) | |
tree | 7042e51393e7279eb41bd8ec468b7e5ff8e34353 /gdb/testsuite/gdb.stabs | |
parent | revisions to just-checked-in stuff re common blocks (diff) | |
download | binutils-gdb-2de1aa1cc95556ade5e1d15ec756b2b98241fe8c.tar.gz binutils-gdb-2de1aa1cc95556ade5e1d15ec756b2b98241fe8c.tar.bz2 binutils-gdb-2de1aa1cc95556ade5e1d15ec756b2b98241fe8c.zip |
* gdb.stabs/wierd{.def,.exp,-aout.S,-xcoff.S}: Add common block test.
Diffstat (limited to 'gdb/testsuite/gdb.stabs')
-rw-r--r-- | gdb/testsuite/gdb.stabs/wierd-aout.S | 2 | ||||
-rw-r--r-- | gdb/testsuite/gdb.stabs/wierd-xcoff.S | 6 | ||||
-rw-r--r-- | gdb/testsuite/gdb.stabs/wierd.def | 15 | ||||
-rw-r--r-- | gdb/testsuite/gdb.stabs/wierd.exp | 11 |
4 files changed, 32 insertions, 2 deletions
diff --git a/gdb/testsuite/gdb.stabs/wierd-aout.S b/gdb/testsuite/gdb.stabs/wierd-aout.S index e188185a118..08878b62a1c 100644 --- a/gdb/testsuite/gdb.stabs/wierd-aout.S +++ b/gdb/testsuite/gdb.stabs/wierd-aout.S @@ -3,6 +3,8 @@ #define N_LSYM 0x80 #define N_GSYM 0x20 +#define N_BCOMM 0xe2 +#define N_ECOMM 0xe4 #define VAR(name) \ .globl name; \ diff --git a/gdb/testsuite/gdb.stabs/wierd-xcoff.S b/gdb/testsuite/gdb.stabs/wierd-xcoff.S index b4d3a24d9df..f0aed3118a9 100644 --- a/gdb/testsuite/gdb.stabs/wierd-xcoff.S +++ b/gdb/testsuite/gdb.stabs/wierd-xcoff.S @@ -1,5 +1,7 @@ -#define N_LSYM 0x81 -#define N_GSYM 0x80 +#define N_GSYM 128 +#define N_LSYM 129 +#define N_BCOMM 135 +#define N_ECOMM 137 #define VAR(name) \ .globl name; \ diff --git a/gdb/testsuite/gdb.stabs/wierd.def b/gdb/testsuite/gdb.stabs/wierd.def index 81a384c65c7..4de0d9f2a80 100644 --- a/gdb/testsuite/gdb.stabs/wierd.def +++ b/gdb/testsuite/gdb.stabs/wierd.def @@ -306,6 +306,21 @@ STAB("attr90:G390=@Z !#$%&'()*+,-./0123456789:<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\] STAB("attr91:G391=@[ !#$%&'()*+,-./0123456789:<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~;1",N_GSYM,attr91) STAB("attr92:G392=@\ !#$%&'()*+,-./0123456789:<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~;1",N_GSYM,attr92) STAB("attr93:G393=@] !#$%&'()*+,-./0123456789:<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~;1",N_GSYM,attr93) + +/* Provide one of each, so this wins regardless of whether names have + underscores. */ +VAR (_common0) + .long 24 + .long 22 +VAR (common0) + .long 24 + .long 22 +STAB ("common0", N_BCOMM, 0) +STAB ("common0var0:S1", N_GSYM, 0) +STAB ("common0var1:S1", N_GSYM, 4) +STAB ("common0var2:S1", N_GSYM, 8) +STAB ("common0", N_ECOMM, 0) + STAB("attr94:G394=@^ !#$%&'()*+,-./0123456789:<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~;1",N_GSYM,attr94) STAB("attr95:G395=@_ !#$%&'()*+,-./0123456789:<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~;1",N_GSYM,attr95) STAB("attr100:G400=@d !#$%&'()*+,-./0123456789:<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~;1",N_GSYM,attr100) diff --git a/gdb/testsuite/gdb.stabs/wierd.exp b/gdb/testsuite/gdb.stabs/wierd.exp index a8afcecebf0..a734a057c22 100644 --- a/gdb/testsuite/gdb.stabs/wierd.exp +++ b/gdb/testsuite/gdb.stabs/wierd.exp @@ -157,6 +157,17 @@ field3 = 0x77888877\}" "print struct constant" gdb_test "whatis pointer_to_int_var" "type = int \*" "whatis p t i v" setup_xfail "*-*-*" gdb_test "whatis intp_var" "type = intp" "whatis intp_var" + + gdb_test "p common0var0" "= 42" + # GDB seems to only understand common blocks local to a function. + # These variables never get relocated to be relative to the common + # block. + # I'm not sure whether it is valid to have a common block which + # is not local to a function. + setup_xfail "*-*-*" + gdb_test "p common0var1" "= 24" + setup_xfail "*-*-*" + gdb_test "p common0var2" "= 22" } proc print_wierd_var { var } { |