old-cross-binutils/gdb/testsuite/gdb.dwarf2/dw2-ifort-parameter.exp

75 lines
1.9 KiB
Text
Raw Normal View History

# Copyright 2011-2015 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
# the Free Software Foundation; either version 3 of the License, or
# (at your option) any later version.
#
# This program is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
# GNU General Public License for more details.
#
# You should have received a copy of the GNU General Public License
# along with this program. If not, see <http://www.gnu.org/licenses/>.
# Verify DW_AT_variable_parameter does not modify the data structures meaning
# for GDB, as being used by iFort.
load_lib dwarf.exp
# This test can only be run on targets which support DWARF-2 and use gas.
if {![dwarf2_support]} {
return 0
}
standard_testfile .c dw2-ifort-parameter-dw.S
# Make some DWARF for the test.
set asm_file [standard_output_file $srcfile2]
Dwarf::assemble $asm_file {
declare_labels int_label
extern func_start func_end ptr
global srcdir subdir srcfile
cu {} {
compile_unit {
{name file1.txt}
{language @DW_LANG_C}
{MACRO_AT_range { func ${srcdir}/${subdir}/${srcfile} }}
} {
int_label: base_type {
{name int}
{byte_size 4 sdata}
{encoding @DW_ATE_signed}
}
subprogram {
{external 1 flag}
{MACRO_AT_func { func ${srcdir}/${subdir}/${srcfile} }}
} {
formal_parameter {
{name param}
{variable_parameter 1 flag}
{type :$int_label}
{location {
gdb.dwarf2: Define and use gdb_target_symbol for symbol prefixes Some of the tests in gdb.dwarf2 which use Dwarf::assemble refer to (minimal/linker) symbols created in the course of building a small test program. Some targets use a prefix such as underscore ("_") on these symbols. Many of the tests in gdb.dwarf2 do not take this into account. As a consequence, these tests fail to build, resulting either in failures or untested testcases. Here is an example from gdb.dwarf2/dw2-regno-invalid.exp: Dwarf::assemble $asm_file { cu {} { compile_unit { {low_pc main DW_FORM_addr} {high_pc main+0x10000 DW_FORM_addr} } { ... } For targets which require an underscore prefix on linker symbols, the two occurrences of "main" would have to have a prepended underscore, i.e. _main instead of main. For the above case, a call to the new proc gdb_target_symbol is used prepend the correct prefix to the symbol. I.e. the above code is rewritten (as shown in the patch) as follows: Dwarf::assemble $asm_file { cu {} { compile_unit { {low_pc [gdb_target_symbol main] DW_FORM_addr} {high_pc [gdb_target_symbol main]+0x10000 DW_FORM_addr} } { ... } I also found it necessary to make an adjustment to lib/dwarf.exp so that expressions of more than just one list element can be used in DW_TAG_... constructs. Both atomic-type.exp and dw2-bad-mips-linkage-name.exp require this new functionality. gdb/testsuite/ChangeLog: * lib/gdb.exp (gdb_target_symbol_prefix, gdb_target_symbol): New procs. * lib/dwarf.exp (_handle_DW_TAG): Handle attribute values, representing expressions, of more than one list element. * gdb.dwarf2/atomic-type.exp (Dwarf::assemble): Use gdb_target_symbol to prepend linker symbol prefix to f. * gdb.dwarf2/data-loc.exp (Dwarf::assemble): Likewise, for table_1 and table_2. * gdb.dwarf2/dw2-bad-mips-linkage-name.exp (Dwarf::assemble): Likewise, for f and g. * gdb.dwarf2/dw2-ifort-parameter.exp (Dwarf::assemble): Likewise, for ptr. * gdb.dwarf2/dw2-regno-invalid.exp (Dwarf::assemble): Likewise, for main. * gdb.dwarf2/dynarr-ptr.exp (Dwarf::assemble): Likewise, for table_1_ptr and table_2_ptr.
2015-10-28 18:36:06 +00:00
addr [gdb_target_symbol ptr]
deref
} SPECIAL_expr}
}
}
}
}
}
* gdb.dwarf2/pr10770.exp: Use standard_testfile. * gdb.dwarf2/dw2-var-zero-addr.exp: Use standard_testfile. * gdb.dwarf2/dw2-param-error.exp: Use standard_testfile. * gdb.dwarf2/dw2-op-call.exp: Use standard_testfile. * gdb.dwarf2/dw2-inline-param.exp: Use standard_testfile, prepare_for_testing. * gdb.dwarf2/dw2-inline-break.exp: Use standard_testfile. * gdb.dwarf2/dw2-ifort-parameter.exp: Use standard_testfile. * gdb.dwarf2/dw2-cp-infcall-ref-static.exp: Use standard_testfile. * gdb.dwarf2/dw2-case-insensitive.exp: Use standard_testfile. * gdb.dwarf2/dw4-sig-types.exp: Use standard_testfile. * gdb.dwarf2/dw2-objfile-overlap.exp: Use standard_testfile. * gdb.dwarf2/callframecfa.exp: Use standard_testfile, prepare_for_testing. * gdb.dwarf2/dup-psym.exp: Use standard_testfile. * gdb.dwarf2/dw2-ada-ffffffff.exp: Use standard_testfile. * gdb.dwarf2/dw2-anonymous-func.exp: Use standard_testfile. * gdb.dwarf2/dw2-bad-parameter-type.exp: Use standard_testfile. * gdb.dwarf2/dw2-basic.exp: Use standard_testfile. * gdb.dwarf2/dw2-compressed.exp: Use standard_testfile. * gdb.dwarf2/dw2-const.exp: Use standard_testfile. * gdb.dwarf2/dw2-cu-size.exp: Use standard_testfile. * gdb.dwarf2/dw2-double-set-die-type.exp: Use standard_testfile. * gdb.dwarf2/dw2-empty-namespace.exp: Use standard_testfile. * gdb.dwarf2/dw2-empty-pc-range.exp: Use standard_testfile. * gdb.dwarf2/dw2-filename.exp: Use standard_testfile. * gdb.dwarf2/dw2-icc-opaque.exp: Use standard_testfile. * gdb.dwarf2/dw2-inheritance.exp: Use standard_testfile. * gdb.dwarf2/dw2-intercu.exp: Use standard_testfile. * gdb.dwarf2/dw2-intermix.exp: Use standard_testfile. * gdb.dwarf2/dw2-linkage-name-trust.exp: Use standard_testfile. * gdb.dwarf2/dw2-modula2-self-type.exp: Use standard_testfile. * gdb.dwarf2/dw2-namespaceless-anonymous.exp: Use standard_testfile. * gdb.dwarf2/dw2-op-stack-value.exp: Use standard_testfile. * gdb.dwarf2/dw2-producer.exp: Use standard_testfile. * gdb.dwarf2/dw2-ranges.exp: Use standard_testfile, standard_output_file. * gdb.dwarf2/dw2-ref-missing-frame.exp: Use standard_testfile, standard_output_file. * gdb.dwarf2/dw2-restore.exp: Use standard_testfile. * gdb.dwarf2/dw2-simple-locdesc.exp: Use standard_testfile. * gdb.dwarf2/dw2-skip-prologue.exp: Use standard_testfile. * gdb.dwarf2/dw2-stack-boundary.exp: Use standard_testfile. * gdb.dwarf2/dw2-strp.exp: Use standard_testfile. * gdb.dwarf2/dw4-sig-type-unused.exp: Use standard_testfile. * gdb.dwarf2/implptr-64bit.exp: Use standard_testfile. * gdb.dwarf2/implptr-optimized-out.exp: Use standard_testfile. * gdb.dwarf2/implptr.exp: Use standard_testfile. * gdb.dwarf2/mac-fileno.exp: Use standard_testfile. * gdb.dwarf2/member-ptr-forwardref.exp: Use standard_testfile. * gdb.dwarf2/pieces.exp: Use standard_testfile. * gdb.dwarf2/pr11465.exp: Use standard_testfile. * gdb.dwarf2/pr13961.exp: Use standard_testfile. * gdb.dwarf2/valop.exp: Use standard_testfile, prepare_for_testing.
2012-06-27 17:00:09 +00:00
if { [prepare_for_testing ${testfile}.exp ${testfile} \
[list $srcfile $asm_file] {nodebug}] } {
return -1
}
if ![runto func] {
return -1
}
gdb_test "p/x param" " = 0xdeadf00d"