mirror of
https://sourceware.org/git/binutils-gdb.git
synced 2025-01-12 12:16:04 +08:00
4a94e36819
This commit brings all the changes made by running gdb/copyright.py as per GDB's Start of New Year Procedure. For the avoidance of doubt, all changes in this commits were performed by the script.
130 lines
3.6 KiB
Plaintext
130 lines
3.6 KiB
Plaintext
# Copyright 2021-2022 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/>.
|
|
|
|
# This is a basic first test for using the testsuite's Dwarf assembler to
|
|
# create split debug information. There's not unique feature of GDB being
|
|
# tested here, this exists only as a basic test for the testsuite
|
|
# infrastructure.
|
|
|
|
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 -dw.S
|
|
|
|
set asm_file [standard_output_file $srcfile2]
|
|
Dwarf::assemble $asm_file {
|
|
global srcfile binfile objdir
|
|
|
|
set debug_addr_lbl ".unknown!!"
|
|
|
|
# The information that will be split out into the .dwo file.
|
|
cu {fission 1} {
|
|
|
|
# Capture a label to the current start of the .debug_addr
|
|
# section. This will be passed to DW_AT_GNU_addr_base in the
|
|
# non-split CU later.
|
|
set debug_addr_lbl [debug_addr_label]
|
|
|
|
compile_unit {
|
|
{language @DW_LANG_C}
|
|
{name ${srcfile}}
|
|
{DW_AT_comp_dir ${objdir}}
|
|
{DW_AT_GNU_dwo_id 0x1234 DW_FORM_data8}
|
|
} {
|
|
declare_labels int4_type struct_type
|
|
|
|
int4_type: DW_TAG_base_type {
|
|
{DW_AT_byte_size 4 DW_FORM_sdata}
|
|
{DW_AT_encoding @DW_ATE_signed}
|
|
{DW_AT_name integer}
|
|
}
|
|
|
|
struct_type: DW_TAG_structure_type {
|
|
{DW_AT_name "foo_t"}
|
|
{DW_AT_byte_size 12 DW_FORM_sdata}
|
|
} {
|
|
member {
|
|
{name "aa"}
|
|
{type :$int4_type}
|
|
{data_member_location 0 data1}
|
|
}
|
|
member {
|
|
{name "bb"}
|
|
{type :$int4_type}
|
|
{data_member_location 4 data1}
|
|
}
|
|
member {
|
|
{name "cc"}
|
|
{type :$int4_type}
|
|
{data_member_location 8 data1}
|
|
}
|
|
}
|
|
|
|
DW_TAG_variable {
|
|
{DW_AT_name global_var}
|
|
{DW_AT_type :$struct_type}
|
|
{DW_AT_location {
|
|
DW_OP_GNU_addr_index [gdb_target_symbol global_var]
|
|
} SPECIAL_expr}
|
|
{external 1 flag}
|
|
}
|
|
|
|
subprogram {
|
|
{external 1 flag}
|
|
{DW_AT_name main DW_FORM_string}
|
|
{MACRO_AT_func {main}}
|
|
}
|
|
}
|
|
}
|
|
|
|
# The information that will remain in the .o file.
|
|
cu {} {
|
|
compile_unit {
|
|
{DW_AT_GNU_dwo_name ${binfile}.dwo DW_FORM_strp}
|
|
{DW_AT_comp_dir ${objdir}}
|
|
{DW_AT_GNU_dwo_id 0x1234 DW_FORM_data8}
|
|
{DW_AT_GNU_addr_base $debug_addr_lbl}
|
|
} {
|
|
# Nothing.
|
|
}
|
|
}
|
|
}
|
|
|
|
# Compile both source files to create the executable. As we compile
|
|
# ASM_FILE we split out the debug information into the dwo file.
|
|
set object_file [standard_output_file ${testfile}.o]
|
|
if { [build_executable_and_dwo_files "${testfile}.exp" ${binfile} {nodebug} \
|
|
[list $asm_file {nodebug split-dwo} ${object_file}] \
|
|
[list $srcfile {nodebug}]] } {
|
|
perror "failed to compile ${gdb_test_file_name}"
|
|
return -1
|
|
}
|
|
|
|
# Now we can start GDB.
|
|
clean_restart ${testfile}
|
|
|
|
if ![runto_main] {
|
|
return -1
|
|
}
|
|
|
|
# Print the type of global_var. This type information is entirely
|
|
# fictional, it only exists in the DWARF. If we don't have the DWARF
|
|
# information then there's no way we can print this.
|
|
gdb_test "p global_var" " = \\{aa = 0, bb = 0, cc = 0\\}"
|