From: Eric Botcazou <ebotcazou@adacore.com>
Date: Mon, 15 May 2017 09:07:18 +0000 (+0000)
Subject: gigi.h (get_elaboration_procedure): Delete.
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=7543c8b64cbcbeff998f6112dc8b6e07645e55a9;p=gcc.git

gigi.h (get_elaboration_procedure): Delete.

	* gcc-interface/gigi.h (get_elaboration_procedure): Delete.
	* gcc-interface/trans.c (get_elaboration_procedure): Make static.

From-SVN: r248055
---

diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog
index f4c126a7b72..1c12460f111 100644
--- a/gcc/ada/ChangeLog
+++ b/gcc/ada/ChangeLog
@@ -1,3 +1,8 @@
+2017-05-15  Eric Botcazou  <ebotcazou@adacore.com>
+
+	* gcc-interface/gigi.h (get_elaboration_procedure): Delete.
+	* gcc-interface/trans.c (get_elaboration_procedure): Make static.
+
 2017-05-15  Pierre-Marie de Rodat  <derodat@adacore.com>
 
 	* gcc-interface/utils.c (can_materialize_object_renaming_p):
diff --git a/gcc/ada/gcc-interface/gigi.h b/gcc/ada/gcc-interface/gigi.h
index 1fc3448a083..b1fb34ad620 100644
--- a/gcc/ada/gcc-interface/gigi.h
+++ b/gcc/ada/gcc-interface/gigi.h
@@ -6,7 +6,7 @@
  *                                                                          *
  *                              C Header File                               *
  *                                                                          *
- *          Copyright (C) 1992-2016, Free Software Foundation, Inc.         *
+ *          Copyright (C) 1992-2017, Free Software Foundation, Inc.         *
  *                                                                          *
  * GNAT is free software;  you can  redistribute it  and/or modify it under *
  * terms of the  GNU General Public License as published  by the Free Soft- *
@@ -316,9 +316,6 @@ extern void post_error_ne_tree_2 (const char *msg, Node_Id node, Entity_Id ent,
    if none.  */
 extern tree get_exception_label (char kind);
 
-/* Return the decl for the current elaboration procedure.  */
-extern tree get_elaboration_procedure (void);
-
 /* If nonzero, pretend we are allocating at global level.  */
 extern int force_global;
 
diff --git a/gcc/ada/gcc-interface/trans.c b/gcc/ada/gcc-interface/trans.c
index abdef037545..dc1b43ad6c4 100644
--- a/gcc/ada/gcc-interface/trans.c
+++ b/gcc/ada/gcc-interface/trans.c
@@ -217,6 +217,7 @@ static GTY(()) vec<tree, va_gc> *gnu_program_error_label_stack;
 static enum tree_code gnu_codes[Number_Node_Kinds];
 
 static void init_code_table (void);
+static tree get_elaboration_procedure (void);
 static void Compilation_Unit_to_gnu (Node_Id);
 static bool empty_stmt_list_p (tree);
 static void record_code_position (Node_Id);
@@ -10183,7 +10184,7 @@ get_exception_label (char kind)
 
 /* Return the decl for the current elaboration procedure.  */
 
-tree
+static tree
 get_elaboration_procedure (void)
 {
   return gnu_elab_proc_stack->last ();