[PATCH 1/4] gdb: add new function quick_symbol_functions::has_unexpanded_symbols

[Andrew Burgess <andrew.burgess@embecosm.com>]

Adds a new function to the quick_symbol_functions API to let us know
if there are any unexpanded symbols.  This functionality is required
by a later commit.  After this commit the functionality is unused, and
untested.

There should be no user visible changes after this commit.

gdb/ChangeLog:

	* dwarf2/read.c (struct dwarf2_base_index_functions)
	<has_unexpanded_symbols>: Declare.
	(dwarf2_base_index_functions::has_unexpanded_symbols): Define new
	function.
	* objfiles.h (struct objfile) <has_unexpanded_symbols>: Declare.
	* psympriv.h (struct psymbol_functions) <has_unexpanded_symbols>:
	Declare.
	* psymtab.c (psymbol_functions::has_unexpanded_symbols): Define
	new function.
	* quick-symbol.h (struct quick_symbol_functions)
	<has_unexpanded_symbols>: Declare.
	* symfile-debug.c (objfile::has_unexpanded_symbols): Define new
	function.
---
 gdb/ChangeLog       | 16 ++++++++++++++++
 gdb/dwarf2/read.c   | 22 ++++++++++++++++++++++
 gdb/objfiles.h      |  6 ++++++
 gdb/psympriv.h      |  2 ++
 gdb/psymtab.c       | 18 ++++++++++++++++++
 gdb/quick-symbol.h  |  6 ++++++
 gdb/symfile-debug.c | 13 +++++++++++++
 7 files changed, 83 insertions(+)

diff --git a/gdb/dwarf2/read.c b/gdb/dwarf2/read.c
index 306971ef1b7..5ab0c59c7ae 100644
--- a/gdb/dwarf2/read.c
+++ b/gdb/dwarf2/read.c
@@ -2275,6 +2275,8 @@ struct dwarf2_base_index_functions : public quick_symbol_functions
 {
   bool has_symbols (struct objfile *objfile) override;
 
+  bool has_unexpanded_symbols (struct objfile *objfile) override;
+
   struct symtab *find_last_source_symtab (struct objfile *objfile) override;
 
   void forget_cached_source_info (struct objfile *objfile) override;
@@ -4767,6 +4769,26 @@ dwarf2_base_index_functions::has_symbols (struct objfile *objfile)
   return true;
 }
 
+/* See quick_symbol_functions::has_unexpanded_symbols in quick-symbol.h.  */
+
+bool
+dwarf2_base_index_functions::has_unexpanded_symbols (struct objfile *objfile)
+{
+  dwarf2_per_objfile *per_objfile = get_dwarf2_per_objfile (objfile);
+
+  for (dwarf2_per_cu_data *per_cu : per_objfile->per_bfd->all_comp_units)
+    {
+      /* Is this already expanded?  */
+      if (per_objfile->symtab_set_p (per_cu))
+	continue;
+
+      /* It has not yet been expanded.  */
+      return true;
+    }
+
+  return false;
+}
+
 /* DWARF-5 debug_names reader.  */
 
 /* DWARF-5 augmentation string for GDB's DW_IDX_GNU_* extension.  */
diff --git a/gdb/objfiles.h b/gdb/objfiles.h
index 5a8a782a646..72d9bab5555 100644
--- a/gdb/objfiles.h
+++ b/gdb/objfiles.h
@@ -565,6 +565,12 @@ struct objfile
 
   bool has_partial_symbols ();
 
+  /* Return true if this objfile has any unexpanded symbols.  A return
+     value of false indicates either, that this objfile has all its
+     symbols fully expanded (i.e. fully read in), or that this objfile has
+     no symbols at all (i.e. no debug information).  */
+  bool has_unexpanded_symbols ();
+
   /* See quick_symbol_functions.  */
   struct symtab *find_last_source_symtab ();
 
diff --git a/gdb/psympriv.h b/gdb/psympriv.h
index 59dd66f57e5..1712ad978e6 100644
--- a/gdb/psympriv.h
+++ b/gdb/psympriv.h
@@ -503,6 +503,8 @@ struct psymbol_functions : public quick_symbol_functions
 
   bool has_symbols (struct objfile *objfile) override;
 
+  bool has_unexpanded_symbols (struct objfile *objfile) override;
+
   struct symtab *find_last_source_symtab (struct objfile *objfile) override;
 
   void forget_cached_source_info (struct objfile *objfile) override;
diff --git a/gdb/psymtab.c b/gdb/psymtab.c
index 75a307c89aa..cc5eb503902 100644
--- a/gdb/psymtab.c
+++ b/gdb/psymtab.c
@@ -1185,6 +1185,24 @@ psymbol_functions::has_symbols (struct objfile *objfile)
   return m_partial_symtabs->psymtabs != NULL;
 }
 
+/* See quick_symbol_functions::has_unexpanded_symbols in quick-symbol.h.  */
+
+bool
+psymbol_functions::has_unexpanded_symbols (struct objfile *objfile)
+{
+  for (partial_symtab *psymtab : require_partial_symbols (objfile))
+    {
+      /* Is this already expanded?  */
+      if (psymtab->readin_p (objfile))
+	continue;
+
+      /* It has not yet been expanded.  */
+      return true;
+    }
+
+  return false;
+}
+
 /* Helper function for psym_find_compunit_symtab_by_address that fills
    in m_psymbol_map for a given range of psymbols.  */
 
diff --git a/gdb/quick-symbol.h b/gdb/quick-symbol.h
index f06ceff41c2..096053e75e9 100644
--- a/gdb/quick-symbol.h
+++ b/gdb/quick-symbol.h
@@ -86,6 +86,12 @@ struct quick_symbol_functions
      available.  */
   virtual bool has_symbols (struct objfile *objfile) = 0;
 
+  /* Return true if OBJFILE has any unexpanded symbols.  A return value of
+     false indicates there are no unexpanded symbols, this might mean that
+     all of the symbols have been expanded (full debug has been read in),
+     or it might been that OBJFILE has no debug information.  */
+  virtual bool has_unexpanded_symbols (struct objfile *objfile) = 0;
+
   /* Return the symbol table for the "last" file appearing in
      OBJFILE.  */
   virtual struct symtab *find_last_source_symtab (struct objfile *objfile) = 0;
diff --git a/gdb/symfile-debug.c b/gdb/symfile-debug.c
index b839194e2f7..cfc3bed9222 100644
--- a/gdb/symfile-debug.c
+++ b/gdb/symfile-debug.c
@@ -100,6 +100,19 @@ objfile::has_partial_symbols ()
   return retval;
 }
 
+/* See objfiles.h.  */
+bool
+objfile::has_unexpanded_symbols ()
+{
+  for (const auto &iter : qf)
+    {
+      if (iter->has_unexpanded_symbols (this))
+	return true;
+    }
+
+  return false;
+}
+
 struct symtab *
 objfile::find_last_source_symtab ()
 {
-- 
2.25.4