OpenE2K
/
binutils-gdb
12
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

* gdb.stabs/wierd{.def,.exp,-aout.S,-xcoff.S}: Add common block test.

This commit is contained in:
Jim Kingdon 1993-06-26 03:30:24 +00:00
parent 11d1934593
commit 2de1aa1cc9
5 changed files with 34 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
gdb/testsuite/ChangeLog
View File

@ -1,5 +1,7 @@
Fri Jun 25 12:00:46 1993 Jim Kingdon (kingdon@lioth.cygnus.com)
* gdb.stabs/wierd{.def,.exp,-aout.S,-xcoff.S}: Add common block test.
* gdb.t{02,13}/{Makefile.in,gdbme.c,comp-info.c}: New way of
generating comp-info.exp which works for cross-compilation.

2
gdb/testsuite/gdb.stabs/wierd-aout.S
View File

@ -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; \

6
gdb/testsuite/gdb.stabs/wierd-xcoff.S
View File

@ -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; \

15
gdb/testsuite/gdb.stabs/wierd.def
View File

@ -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)

11
gdb/testsuite/gdb.stabs/wierd.exp
View File

@ -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 } {