OpenE2K/gcc
2
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

gigi.h (get_elaboration_procedure): Delete.

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

From-SVN: r248055
This commit is contained in:
Eric Botcazou 2017-05-15 09:07:18 +00:00 committed by Eric Botcazou
parent 0d5a0a33cd
commit 7543c8b64c
3 changed files with 8 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
gcc/ada/ChangeLog
View File

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

5
gcc/ada/gcc-interface/gigi.h
View File

@ -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;

3
gcc/ada/gcc-interface/trans.c
View File

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