| # Copyright 2023-2025 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/>. |
| |
| # Test that the DW_TAG_entry_point is handled properly by GDB and that we can |
| # set breakpoints on function entry points. |
| |
| load_lib dwarf.exp |
| |
| # This test can only be run on targets that support DWARF-2 and use |
| # gas. |
| require dwarf2_support |
| |
| standard_testfile .c -dw.S |
| |
| if { [prepare_for_testing "failed to prepare" ${testfile} ${srcfile}] } { |
| return -1 |
| } |
| |
| # Make some DWARF for the test. |
| set asm_file [standard_output_file $srcfile2] |
| Dwarf::assemble $asm_file { |
| global srcfile |
| declare_labels int_label int2_label |
| |
| get_func_info main |
| get_func_info bar_helper |
| get_func_info barso_helper |
| |
| set int_size [get_sizeof "int" 4] |
| |
| set prog_line 1 |
| set bar_line 2 |
| set foo_line 3 |
| set foobar_line 4 |
| |
| set global_I [gdb_target_symbol I] |
| set global_J [gdb_target_symbol J] |
| set global_K [gdb_target_symbol K] |
| |
| cu {} { |
| compile_unit { |
| DW_AT_language @DW_LANG_Fortran90 |
| DW_AT_name dw2-entry-points.f90 |
| DW_AT_comp_dir /tmp |
| } { |
| int_label: base_type { |
| DW_AT_name "int" |
| DW_AT_byte_size $int_size sdata |
| DW_AT_encoding @DW_ATE_signed |
| } |
| subprogram { |
| DW_AT_name prog |
| DW_AT_decl_file 1 data1 |
| DW_AT_decl_line $prog_line data1 |
| DW_AT_low_pc $main_start addr |
| DW_AT_high_pc "$main_start + $main_len" addr |
| DW_AT_external 1 flag |
| DW_AT_main_subprogram 1 flag |
| } |
| subprogram { |
| DW_AT_name bar |
| DW_AT_decl_file 1 data1 |
| DW_AT_decl_line $bar_line data1 |
| DW_AT_external 1 flag |
| DW_AT_low_pc $bar_helper_start addr |
| DW_AT_high_pc "$bar_helper_start + $bar_helper_len" addr |
| } { |
| formal_parameter { |
| DW_AT_name I |
| DW_AT_type :$int_label |
| DW_AT_location [subst {addr $global_I}] SPECIAL_expr |
| } |
| formal_parameter { |
| DW_AT_name J |
| DW_AT_type :$int_label |
| DW_AT_location [subst {addr $global_J}] SPECIAL_expr |
| } |
| entry_point { |
| DW_AT_name foo |
| DW_AT_decl_file 1 data1 |
| DW_AT_decl_line $foo_line data1 |
| DW_AT_low_pc foo_entry_label addr |
| } { |
| formal_parameter { |
| DW_AT_name J |
| DW_AT_type :$int_label |
| DW_AT_location [subst {addr $global_J}] SPECIAL_expr |
| } |
| formal_parameter { |
| DW_AT_name K |
| DW_AT_type :$int_label |
| DW_AT_location [subst {addr $global_K}] SPECIAL_expr |
| } |
| } |
| entry_point { |
| DW_AT_name foobar |
| DW_AT_decl_file 1 data1 |
| DW_AT_decl_line $foobar_line data1 |
| DW_AT_low_pc foobar_entry_label addr |
| } { |
| formal_parameter { |
| DW_AT_name J |
| DW_AT_type :$int_label |
| DW_AT_location [subst {addr $global_J}] SPECIAL_expr |
| } |
| } |
| } |
| } |
| } |
| |
| cu {} { |
| compile_unit { |
| DW_AT_language @DW_LANG_Fortran90 |
| DW_AT_name dw2-entry-points-2.f90 |
| DW_AT_comp_dir /tmp |
| } { |
| int2_label: base_type { |
| DW_AT_name "int" |
| DW_AT_byte_size $int_size sdata |
| DW_AT_encoding @DW_ATE_signed |
| } |
| subprogram { |
| DW_AT_name barso |
| DW_AT_decl_file 1 data1 |
| DW_AT_decl_line $bar_line data1 |
| DW_AT_external 1 flag |
| DW_AT_low_pc $barso_helper_start addr |
| DW_AT_high_pc "$barso_helper_start + $barso_helper_len" addr |
| } { |
| formal_parameter { |
| DW_AT_name I |
| DW_AT_type :$int2_label |
| DW_AT_location [subst {addr $global_I}] SPECIAL_expr |
| } |
| formal_parameter { |
| DW_AT_name J |
| DW_AT_type :$int2_label |
| DW_AT_location [subst {addr $global_J}] SPECIAL_expr |
| } |
| entry_point { |
| DW_AT_name fooso |
| DW_AT_decl_file 1 data1 |
| DW_AT_decl_line $foo_line data1 |
| DW_AT_low_pc fooso_entry_label addr |
| } { |
| formal_parameter { |
| DW_AT_name J |
| DW_AT_type :$int2_label |
| DW_AT_location [subst {addr $global_J}] SPECIAL_expr |
| } |
| formal_parameter { |
| DW_AT_name K |
| DW_AT_type :$int2_label |
| DW_AT_location [subst {addr $global_K}] SPECIAL_expr |
| } |
| } |
| } |
| } |
| } |
| } |
| |
| if {[prepare_for_testing "failed to prepare" ${testfile} \ |
| [list $srcfile $asm_file] {nodebug}]} { |
| return -1 |
| } |
| |
| if ![runto_main] { |
| return -1 |
| } |
| |
| # Try whether we can set and hit breakpoints at the entry_points. |
| gdb_breakpoint "*foo" |
| gdb_breakpoint "*foobar" |
| |
| # Now hit the entry_point break point and check their call-stack. |
| gdb_continue_to_breakpoint "foo" |
| gdb_test "bt" [multi_line \ |
| "#0.*${hex} in foo \\(J=1, K=0\\).*" \ |
| "#1.*${hex} in prog \\(\\).*" \ |
| ] "bt foo" |
| |
| gdb_continue_to_breakpoint "foobar" |
| gdb_test "bt" [multi_line \ |
| "#0.*${hex} in foobar \\(J=2\\).*" \ |
| "#1.*${hex} in prog \\(\\).*" \ |
| ] "bt foobar" |
| |
| # Now try whether we can also set breakpoints on entry_points from other CUs. |
| |
| clean_restart ${testfile} |
| |
| if ![runto_main] { |
| return -1 |
| } |
| |
| gdb_breakpoint "*fooso" |
| gdb_continue_to_breakpoint "foo_so" |
| |
| # Note that because DW_TAG_entry_point is entered as a LOC_BLOCK |
| # symbol, exactly which symbol is shown in the stack trace depends on |
| # which symbol gdb happens to find first in the lookup. |
| gdb_test "bt" [multi_line \ |
| "#0.*${hex} in (foo|fooso) \\(J=1, K=0\\).*" \ |
| "#1.*${hex} in prog \\(\\).*" \ |
| ] "bt fooso" |
