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 f4c126a7b7234fb73b56a5fe45792f97dbfad17c..1c12460f11117b55c3750a4bd2d3ebec1041124d 100644 (file)
--- 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 1fc3448a08380c1047394979ec8635bcff40ff68..b1fb34ad6202be2a0e124aea786ac56df3ff488e 100644 (file)
--- 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 abdef0375459b04c3d1b9fe470f87ec0d1b0ce4d..dc1b43ad6c40b832dd2378a7c24af40930922ddd 100644 (file)
--- 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 ();