From 7543c8b64cbcbeff998f6112dc8b6e07645e55a9 Mon Sep 17 00:00:00 2001 From: Eric Botcazou Date: Mon, 15 May 2017 09:07:18 +0000 Subject: [PATCH] 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 | 5 +++++ gcc/ada/gcc-interface/gigi.h | 5 +---- gcc/ada/gcc-interface/trans.c | 3 ++- 3 files changed, 8 insertions(+), 5 deletions(-) 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 + + * gcc-interface/gigi.h (get_elaboration_procedure): Delete. + * gcc-interface/trans.c (get_elaboration_procedure): Make static. + 2017-05-15 Pierre-Marie de Rodat * 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 *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 (); -- 2.30.2