From a1c7af89120cc79a5668f711a76ee51d0fbad5fd Mon Sep 17 00:00:00 2001 From: Andreas Schwab Date: Wed, 14 Jul 2004 13:09:43 +0000 Subject: [PATCH] * trans.c (gnat_init_stmt_group): Remove duplicate definition. From-SVN: r84684 --- gcc/ada/ChangeLog | 4 ++++ gcc/ada/trans.c | 22 ---------------------- 2 files changed, 4 insertions(+), 22 deletions(-) diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog index 5450f603d8f..82315c981e3 100644 --- a/gcc/ada/ChangeLog +++ b/gcc/ada/ChangeLog @@ -1,3 +1,7 @@ +2004-07-14 Andreas Schwab + + * trans.c (gnat_init_stmt_group): Remove duplicate definition. + 2004-07-13 Richard Kenner * decl.c: (gnat_to_gnu_entity, object case): Convert initializer to diff --git a/gcc/ada/trans.c b/gcc/ada/trans.c index 6635c1df741..0cc6f953fe6 100644 --- a/gcc/ada/trans.c +++ b/gcc/ada/trans.c @@ -277,28 +277,6 @@ gigi (Node_Id gnat_root, int max_gnat_node, int number_name, /* Perform initializations for this module. */ -void -gnat_init_stmt_group () -{ - /* Initialize ourselves. */ - init_code_table (); - start_stmt_group (); - - global_stmt_group = current_stmt_group; - - /* Enable GNAT stack checking method if needed */ - if (!Stack_Check_Probes_On_Target) - set_stack_check_libfunc (gen_rtx_SYMBOL_REF (Pmode, "_gnat_stack_check")); - - if (Exception_Mechanism == Front_End_ZCX) - abort (); - - REAL_ARITHMETIC (dconstp5, RDIV_EXPR, dconst1, dconst2); - REAL_ARITHMETIC (dconstmp5, RDIV_EXPR, dconstm1, dconst2); -} - -/* Perform initializations for this module. */ - void gnat_init_stmt_group () {