2013-07-02 Tristan Gingold <gingold@adacore.com>

	* vms-alpha.c (_bfd_generic_find_nearest_line_discriminator): Define.
	(_bfd_vms_find_nearest_line_discriminator): New function.

diff --git a/bfd/ChangeLog b/bfd/ChangeLog
index 91ec8396aa7ae15fb38156d950b1a4facaac1788..41693531764922aaa4b0f3ce27db7dda5c3d63d2 100644 (file)
--- a/bfd/ChangeLog
+++ b/bfd/ChangeLog
@@ -1,5 +1,10 @@
 2013-07-02  Tristan Gingold  <gingold@adacore.com>
 
+       * vms-alpha.c (_bfd_generic_find_nearest_line_discriminator): Define.
+       (_bfd_vms_find_nearest_line_discriminator): New function.
+
+2013-07-02  Tristan Gingold  <gingold@adacore.com>
+       
        * coff-rs6000.c (xcoff_create_csect_from_smclas): Handle more smclas.
 
 2013-07-02  Tristan Gingold  <gingold@adacore.com>

diff --git a/bfd/vms-alpha.c b/bfd/vms-alpha.c
index 2d757da074c9c770ad6658957561abef427b6274..aad36dcf5be8926ddfef6a3306a679883ec5b6b3 100644 (file)
--- a/bfd/vms-alpha.c
+++ b/bfd/vms-alpha.c
@@ -4740,6 +4740,26 @@ _bfd_vms_find_nearest_dst_line (bfd *abfd, asection *section,
 
   return FALSE;
 }
+
+/* Likewise but with a discriminator.  */
+
+static bfd_boolean
+_bfd_vms_find_nearest_line_discriminator (bfd *abfd,
+                                         asection *section,
+                                         asymbol **symbols,
+                                         bfd_vma offset,
+                                         const char **filename_ptr,
+                                         const char **functionname_ptr,
+                                         unsigned int *line_ptr,
+                                         unsigned int *discriminator)
+{
+  *discriminator = 0;
+
+  return _bfd_vms_find_nearest_dst_line (abfd, section, symbols, offset,
+                                        filename_ptr, functionname_ptr,
+                                        line_ptr);
+}
+
 \f
 /* Canonicalizations.  */
 /* Set name, value, section and flags of SYM from E.  */
@@ -9322,6 +9342,8 @@ bfd_vms_get_data (bfd *abfd)
 #define alpha_vms_find_inliner_info        _bfd_nosymbols_find_inliner_info
 #define alpha_vms_bfd_make_debug_symbol    _bfd_nosymbols_bfd_make_debug_symbol
 #define alpha_vms_find_nearest_line        _bfd_vms_find_nearest_dst_line
+#define _bfd_generic_find_nearest_line_discriminator \
+  _bfd_vms_find_nearest_line_discriminator
 #define alpha_vms_bfd_is_local_label_name  vms_bfd_is_local_label_name
 
 /* Generic table.  */