diff --git a/gdb/dwarf2/read.c b/gdb/dwarf2/read.c index 35cce9396ae..812d9c608ef 100644 --- a/gdb/dwarf2/read.c +++ b/gdb/dwarf2/read.c @@ -12044,7 +12044,14 @@ read_func_scope (struct die_info *die, struct dwarf2_cu *cu) <= PC_BOUNDS_INVALID) { attr = dwarf2_attr (die, DW_AT_external, cu); - if (attr == nullptr || !attr->as_boolean ()) + bool external_p = attr != nullptr && attr->as_boolean (); + attr = dwarf2_attr (die, DW_AT_inline, cu); + bool inlined_p + = (attr != nullptr + && attr->is_nonnegative () + && (attr->as_nonnegative () == DW_INL_inlined + || attr->as_nonnegative () == DW_INL_declared_inlined)); + if (!external_p && !inlined_p) complaint (_("cannot get low and high bounds " "for subprogram DIE at %s"), sect_offset_str (die->sect_off)); diff --git a/gdb/testsuite/gdb.dwarf2/inline.c b/gdb/testsuite/gdb.dwarf2/inline.c new file mode 100644 index 00000000000..2e07f6c4a9d --- /dev/null +++ b/gdb/testsuite/gdb.dwarf2/inline.c @@ -0,0 +1,34 @@ +/* This testcase is part of GDB, the GNU debugger. + + Copyright 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 . */ + +static int __attribute__((always_inline)) +foo (void) +{ + return 0; +} + +static int inline __attribute__((always_inline)) +foo2 (void) +{ + return 0; +} + +int +main (void) +{ + return foo () + foo2 (); +} diff --git a/gdb/testsuite/gdb.dwarf2/inline.exp b/gdb/testsuite/gdb.dwarf2/inline.exp new file mode 100644 index 00000000000..06182d877af --- /dev/null +++ b/gdb/testsuite/gdb.dwarf2/inline.exp @@ -0,0 +1,32 @@ +# Copyright 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 . + +standard_testfile .c + +if [prepare_for_testing "failed to prepare" $testfile $srcfile \ + {debug nowarnings}] { + return -1 +} + +set cmd "ptype main" + +set re \ + [multi_line \ + $cmd \ + "type = int \\(void\\)"] + +with_complaints 5 { + gdb_test $cmd $re "$cmd without complaints" +}