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

gcc/ada/ChangeLog

+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):

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;
 

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 ();