import gdb-1999-08-16 snapshot

[deliverable/binutils-gdb.git] / gdb / objfiles.c

diff --git a/gdb/objfiles.c b/gdb/objfiles.c
index 123c2308f7441e1e1d847f0ecb621fa241b666f8..a763a66d5d435ef2996cc8921f2854dfad01a336 100644 (file)
--- a/gdb/objfiles.c
+++ b/gdb/objfiles.c
@@ -1003,3 +1003,23 @@ in_plt_section (pc, name)
            && STREQ (s->the_bfd_section->name, ".plt"));
   return (retval);
 }
+
+/* Return nonzero if NAME is in the import list of OBJFILE.  Else
+   return zero.  */
+
+int
+is_in_import_list (name, objfile)
+     char *name;
+     struct objfile *objfile;
+{
+  register int i;
+
+  if (!objfile || !name || !*name)
+    return 0;
+
+  for (i = 0; i < objfile->import_list_size; i++)
+    if (objfile->import_list[i] && STREQ (name, objfile->import_list[i]))
+      return 1;
+  return 0;
+}
+