diff options
| author | Eric Botcazou <ebotcazou@adacore.com> | 2017-05-15 09:07:18 +0000 |
|---|---|---|
| committer | Eric Botcazou <ebotcazou@gcc.gnu.org> | 2017-05-15 09:07:18 +0000 |
| commit | 7543c8b64cbcbeff998f6112dc8b6e07645e55a9 (patch) | |
| tree | 539646fdc44b01b5fa9750a210f95d11d5aa456c /gcc/ada/gcc-interface/trans.c | |
| parent | 0d5a0a33cdd9ff9ef6839636cc17e73c3ad522ec (diff) | |
| download | gcc-7543c8b64cbcbeff998f6112dc8b6e07645e55a9.zip gcc-7543c8b64cbcbeff998f6112dc8b6e07645e55a9.tar.gz gcc-7543c8b64cbcbeff998f6112dc8b6e07645e55a9.tar.bz2 | |
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
Diffstat (limited to 'gcc/ada/gcc-interface/trans.c')
| -rw-r--r-- | gcc/ada/gcc-interface/trans.c | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/gcc/ada/gcc-interface/trans.c b/gcc/ada/gcc-interface/trans.c index abdef03..dc1b43a 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 (); |