diff --git a/bfd/ChangeLog b/bfd/ChangeLog
index 74bc2cca7a..1a431dad14 100644
--- a/bfd/ChangeLog
+++ b/bfd/ChangeLog
@@ -1,3 +1,8 @@
+2004-04-30  H.J. Lu  <hongjiu.lu@intel.com>
+
+	* section.c (bfd_sections_find_if): New.
+	* bfd-in2.h: Regenerated.
+
 2004-04-30  Alan Modra  <amodra@bigpond.net.au>
 
 	* section.c (bfd_make_section_anyway): Add all sections to hash tab.
diff --git a/bfd/bfd-in2.h b/bfd/bfd-in2.h
index ed45cac8c9..5843a19069 100644
--- a/bfd/bfd-in2.h
+++ b/bfd/bfd-in2.h
@@ -1450,6 +1450,11 @@ void bfd_map_over_sections
     void (*func) (bfd *abfd, asection *sect, void *obj),
     void *obj);
 
+asection *bfd_sections_find_if
+   (bfd *abfd,
+    bfd_boolean (*func) (bfd *abfd, asection *sect, void *obj),
+    void *obj);
+
 bfd_boolean bfd_set_section_size
    (bfd *abfd, asection *sec, bfd_size_type val);
 
diff --git a/bfd/section.c b/bfd/section.c
index 5ecb4a6348..0236f08756 100644
--- a/bfd/section.c
+++ b/bfd/section.c
@@ -1094,6 +1094,41 @@ bfd_map_over_sections (bfd *abfd,
     abort ();
 }
 
+/*
+FUNCTION
+	bfd_sections_find_if
+
+SYNOPSIS
+	asection *bfd_sections_find_if
+	  (bfd *abfd,
+	   bfd_boolean (*func) (bfd *abfd, asection *sect, void *obj),
+	   void *obj);
+
+DESCRIPTION
+	Call the provided function @var{func} for each section
+	attached to the BFD @var{abfd}, passing @var{obj} as an
+	argument. The function will be called as if by
+
+|	func (abfd, the_section, obj);
+
+	It returns the first section for which @var{func} returns true.
+
+*/
+
+asection *
+bfd_sections_find_if (bfd *abfd,
+		      bfd_boolean (*operation) (bfd *, asection *, void *),
+		      void *user_storage)
+{
+  asection *sect;
+
+  for (sect = abfd->sections; sect != NULL; sect = sect->next)
+    if ((*operation) (abfd, sect, user_storage))
+      break;
+
+  return sect;
+}
+
 /*
 FUNCTION
 	bfd_set_section_size