234 lines
6 KiB
Text
234 lines
6 KiB
Text
# Copyright 2012-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 test checks that GDB can load DWARF information from two
|
|
# separate split .DWO files.
|
|
|
|
load_lib dwarf.exp
|
|
|
|
# We run objcopy locally to split out the .dwo file.
|
|
if [is_remote host] {
|
|
return 0
|
|
}
|
|
|
|
# This test can only be run on targets which support DWARF-2 and use gas.
|
|
if ![dwarf2_support] {
|
|
return 0
|
|
}
|
|
|
|
# We place the entire source code for the test into a single .c file,
|
|
# but we generate the DWARF in two separate .S files. Each .S is
|
|
# compiled to a .o, then the DWARF is split into a .dwo file. Finally
|
|
# the all three .o files are merged into a single executable that will
|
|
# reference the two .dwo files.
|
|
standard_testfile .c -1-dw.S -2-cw.S
|
|
|
|
# Generate the first .S file.
|
|
set asm_file_1 [standard_output_file $srcfile2]
|
|
Dwarf::assemble $asm_file_1 {
|
|
global srcfile binfile objdir srcdir subdir
|
|
|
|
get_func_info func
|
|
|
|
declare_labels int4_type lines_table
|
|
|
|
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}
|
|
} {
|
|
int4_type: DW_TAG_base_type {
|
|
{DW_AT_byte_size 4 DW_FORM_sdata}
|
|
{DW_AT_encoding @DW_ATE_signed}
|
|
{DW_AT_name int}
|
|
}
|
|
|
|
subprogram {
|
|
{external 1 flag}
|
|
{DW_AT_name func DW_FORM_string}
|
|
{MACRO_AT_func {func}}
|
|
{DW_AT_type :$int4_type}
|
|
} {
|
|
DW_TAG_formal_parameter {
|
|
{DW_AT_name arg}
|
|
{DW_AT_type :$int4_type}
|
|
{DW_AT_location {
|
|
DW_OP_GNU_addr_index [gdb_target_symbol global_param]
|
|
} SPECIAL_expr}
|
|
}
|
|
}
|
|
}
|
|
}
|
|
|
|
lines {version 2} lines_table {
|
|
include_dir "${srcdir}/${subdir}"
|
|
file_name "$srcfile" 1
|
|
|
|
program {
|
|
DW_LNE_set_address $func_start
|
|
DW_LNS_advance_line 24
|
|
DW_LNS_copy
|
|
|
|
DW_LNE_set_address line_label_4
|
|
DW_LNS_advance_line 3
|
|
DW_LNS_copy
|
|
|
|
DW_LNE_set_address $func_end
|
|
DW_LNS_advance_line 1
|
|
DW_LNS_copy
|
|
DW_LNE_end_sequence
|
|
}
|
|
}
|
|
|
|
# The information that will remain in the .o file.
|
|
cu {} {
|
|
compile_unit {
|
|
{DW_AT_GNU_dwo_name ${binfile}-1-dw.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}
|
|
{stmt_list $lines_table DW_FORM_sec_offset}
|
|
} {
|
|
# Nothing.
|
|
}
|
|
}
|
|
}
|
|
|
|
# Generate the second .S file.
|
|
set asm_file_2 [standard_output_file $srcfile3]
|
|
Dwarf::assemble $asm_file_2 {
|
|
global srcfile binfile objdir srcdir subdir
|
|
|
|
set debug_addr_lbl ".unknown!!"
|
|
|
|
declare_labels int4_type lines_table
|
|
|
|
get_func_info main
|
|
|
|
# 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 0x4567 DW_FORM_data8}
|
|
} {
|
|
int4_type: DW_TAG_base_type {
|
|
{DW_AT_byte_size 4 DW_FORM_sdata}
|
|
{DW_AT_encoding @DW_ATE_signed}
|
|
{DW_AT_name int}
|
|
}
|
|
|
|
subprogram {
|
|
{external 1 flag}
|
|
{DW_AT_name main DW_FORM_string}
|
|
{MACRO_AT_func {main}}
|
|
{DW_AT_type :$int4_type}
|
|
{DW_AT_decl_file 1 data1}
|
|
{DW_AT_decl_line 29 data1}
|
|
}
|
|
}
|
|
}
|
|
|
|
lines {version 2} lines_table {
|
|
include_dir "${srcdir}/${subdir}"
|
|
file_name "$srcfile" 1
|
|
|
|
program {
|
|
DW_LNE_set_address $main_start
|
|
DW_LNS_advance_line 32
|
|
DW_LNS_copy
|
|
|
|
DW_LNE_set_address line_label_1
|
|
DW_LNS_advance_line 3
|
|
DW_LNS_copy
|
|
|
|
DW_LNE_set_address line_label_2
|
|
DW_LNS_advance_line 2
|
|
DW_LNS_copy
|
|
|
|
DW_LNE_set_address line_label_3
|
|
DW_LNS_advance_line 2
|
|
DW_LNS_copy
|
|
|
|
DW_LNE_set_address $main_end
|
|
DW_LNS_advance_line 2
|
|
DW_LNS_copy
|
|
DW_LNE_end_sequence
|
|
}
|
|
}
|
|
|
|
# The information that will remain in the .o file.
|
|
cu {} {
|
|
compile_unit {
|
|
{DW_AT_GNU_dwo_name ${binfile}-2-dw.dwo DW_FORM_strp}
|
|
{DW_AT_comp_dir ${objdir}}
|
|
{DW_AT_GNU_dwo_id 0x4567 DW_FORM_data8}
|
|
{DW_AT_GNU_addr_base $debug_addr_lbl}
|
|
{stmt_list $lines_table DW_FORM_sec_offset}
|
|
} {
|
|
# Nothing.
|
|
}
|
|
}
|
|
}
|
|
|
|
# Compile all of the input files, split the DWARF into the .dwo files.
|
|
set obj1 [standard_output_file "${testfile}-1-dw.o"]
|
|
set obj2 [standard_output_file "${testfile}-2-dw.o"]
|
|
if [build_executable_and_dwo_files "$testfile.exp" "${binfile}" {nodebug} \
|
|
[list $asm_file_1 [list nodebug split-dwo] $obj1] \
|
|
[list $asm_file_2 [list nodebug split-dwo] $obj2] \
|
|
[list $srcfile [list nodebug]]] {
|
|
return -1
|
|
}
|
|
|
|
clean_restart $binfile
|
|
|
|
if ![runto_main] {
|
|
return -1
|
|
}
|
|
|
|
# Do a few basic things to verify we're finding the DWO debug info.
|
|
|
|
gdb_test "ptype main" "type = int \\(\\)"
|
|
gdb_test "ptype func" "type = int \\(int\\)"
|
|
|
|
gdb_test "frame" "#0 *main \\(\\) at \[^\r\n\]+${srcfile}:$decimal.*" \
|
|
"frame in main"
|
|
|
|
gdb_test "break func" "Breakpoint.*at.* file .*${srcfile}, line .*"
|
|
|
|
gdb_test "continue" "Breakpoint.* func \\(arg=-1\\).*" \
|
|
"continue to func"
|
|
|
|
gdb_test "frame" "#0 *func \\(arg=-1\\) at \[^\r\n\]+${srcfile}:$decimal.*" \
|
|
"frame in func"
|