diff options
| author | ebotcazou <ebotcazou@138bc75d-0d04-0410-961f-82ee72b054a4> | 2017-05-15 09:07:18 +0000 |
|---|---|---|
| committer | ebotcazou <ebotcazou@138bc75d-0d04-0410-961f-82ee72b054a4> | 2017-05-15 09:07:18 +0000 |
| commit | 1acb004f47b2187653741d93bc3e86e4358e7ff2 (patch) | |
| tree | 539646fdc44b01b5fa9750a210f95d11d5aa456c | |
| parent | 7f7cc984b46d08f85da6c3af0e0bd9baf93a01df (diff) | |
| download | gcc-1acb004f47b2187653741d93bc3e86e4358e7ff2.tar.gz | |
* gcc-interface/gigi.h (get_elaboration_procedure): Delete.
* gcc-interface/trans.c (get_elaboration_procedure): Make static.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@248055 138bc75d-0d04-0410-961f-82ee72b054a4
| -rw-r--r-- | gcc/ada/ChangeLog | 5 | ||||
| -rw-r--r-- | gcc/ada/gcc-interface/gigi.h | 5 | ||||
| -rw-r--r-- | 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 <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 (); |