utils.c (create_subprog_decl): Use SET_DECL_ASSEMBLER_NAME.

2002-04-04 Neil Booth <neil@daikokuya.demon.co.uk> * utils.c (create_subprog_decl): Use SET_DECL_ASSEMBLER_NAME. (builtin_function): Similarly. From-SVN: r51843

utils.c (create_subprog_decl): Use SET_DECL_ASSEMBLER_NAME.
2002-04-04 Neil Booth <neil@daikokuya.demon.co.uk> * utils.c (create_subprog_decl): Use SET_DECL_ASSEMBLER_NAME. (builtin_function): Similarly. From-SVN: r51843
82a4b025 · Neil Booth · Andreas Jaeger · 4d8611d9 · 82a4b025 · 82a4b025
Commit 82a4b025 authored Apr 04, 2002 by Neil Booth Committed by Andreas Jaeger Apr 04, 2002
Expand all Hide whitespace changes
Inline Side-by-side

Showing with 2 additions and 2 deletions

gcc/ada/ChangeLog
+0 -0

gcc/ada/utils.c
+2 -2

No files found.
--- a/gcc/ada/ChangeLog
+++ b/gcc/ada/ChangeLog
--- a/gcc/ada/utils.c
+++ b/gcc/ada/utils.c
@@ -1756,7 +1756,7 @@ create_subprog_decl (subprog_name, asm_name, subprog_type, param_decl_list,
  DECL_RESULT (subprog_decl)    = build_decl (RESULT_DECL, 0, return_type);

  if (asm_name != 0)
-    DECL_ASSEMBLER_NAME (subprog_decl) = asm_name;
+    SET_DECL_ASSEMBLER_NAME (subprog_decl, asm_name);

  process_attributes (subprog_decl, attr_list);

@@ -1935,7 +1935,7 @@ builtin_function (name, type, function_code, class, library_name)
  DECL_EXTERNAL (decl) = 1;
  TREE_PUBLIC (decl) = 1;
  if (library_name)
-    DECL_ASSEMBLER_NAME (decl) = get_identifier (library_name);
+    SET_DECL_ASSEMBLER_NAME (decl, get_identifier (library_name));

  pushdecl (decl);
  DECL_BUILT_IN_CLASS (decl) = class;