From: Tristan Gingold <gingold@adacore.com>
Date: Tue, 2 Jul 2013 09:42:25 +0000 (+0000)
Subject: 2013-07-02  Tristan Gingold  <gingold@adacore.com>
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=b1a49096efd23b4dbc04996bf6cf1ce3c3bb6830;p=binutils-gdb.git

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 91ec8396aa7..41693531764 100644
--- 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 2d757da074c..aad36dcf5be 100644
--- 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);
+}
+
 
 /* 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.  */