[PATCH][OBVIOUS] Revert function removal made in r264561.

[PATCH][OBVIOUS] Revert function removal made in r264561.

[Martin Liška]

[-- Attachment #1: Type: text/plain, Size: 307 bytes --]

Hi.

The removal causes build failures of *-vms targets.

I'm going to define the function again.
Martin

gcc/ChangeLog:

2019-03-07  Martin Liska  <mliska@suse.cz>

	* dwarf2out.c (add_AT_vms_delta): Revert function removal.
---
 gcc/dwarf2out.c | 18 ++++++++++++++++++
 1 file changed, 18 insertions(+)



[-- Attachment #2: 0001-Revert-function-removal-made-in-r264561.patch --]
[-- Type: text/x-patch, Size: 1318 bytes --]

diff --git a/gcc/dwarf2out.c b/gcc/dwarf2out.c
index 1b17f2bc1d5..e074ee3fcd1 100644
--- a/gcc/dwarf2out.c
+++ b/gcc/dwarf2out.c
@@ -3907,6 +3907,8 @@ static void prune_unused_types (void);
 static int maybe_emit_file (struct dwarf_file_data *fd);
 static inline const char *AT_vms_delta1 (dw_attr_node *);
 static inline const char *AT_vms_delta2 (dw_attr_node *);
+static inline void add_AT_vms_delta (dw_die_ref, enum dwarf_attribute,
+				     const char *, const char *);
 static void append_entry_to_tmpl_value_parm_die_table (dw_die_ref, tree);
 static void gen_remaining_tmpl_value_param_die_attribute (void);
 static bool generic_type_p (tree);
@@ -5142,6 +5144,22 @@ AT_file (dw_attr_node *a)
   return a->dw_attr_val.v.val_file;
 }
 
+/* Add a vms delta attribute value to a DIE.  */
+
+static inline void
+add_AT_vms_delta (dw_die_ref die, enum dwarf_attribute attr_kind,
+		  const char *lbl1, const char *lbl2)
+{
+  dw_attr_node attr;
+
+  attr.dw_attr = attr_kind;
+  attr.dw_attr_val.val_class = dw_val_class_vms_delta;
+  attr.dw_attr_val.val_entry = NULL;
+  attr.dw_attr_val.v.val_vms_delta.lbl1 = xstrdup (lbl1);
+  attr.dw_attr_val.v.val_vms_delta.lbl2 = xstrdup (lbl2);
+  add_dwarf_attr (die, &attr);
+}
+
 /* Add a symbolic view identifier attribute value to a DIE.  */
 
 static inline void