* trans.c (gnat_init_stmt_group): Remove duplicate definition.

From-SVN: r84684

diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog
index 5450f603d8f892c3eb051d6a7473f260b67a8700..82315c981e3e37e7326944b0e0400337ebd11201 100644 (file)
--- a/gcc/ada/ChangeLog
+++ b/gcc/ada/ChangeLog
@@ -1,3 +1,7 @@
+2004-07-14  Andreas Schwab  <schwab@suse.de>
+
+       * trans.c (gnat_init_stmt_group): Remove duplicate definition.
+
 2004-07-13  Richard Kenner  <kenner@vlsi1.ultra.nyu.edu>
 
        * decl.c: (gnat_to_gnu_entity, object case): Convert initializer to

diff --git a/gcc/ada/trans.c b/gcc/ada/trans.c
index 6635c1df741de9e8bd3d4be51a42884580de5eb0..0cc6f953fe666ab9ab582ed63515d75298575f8f 100644 (file)
--- 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,
 \f
 /* 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);
-}
-\f
-/* Perform initializations for this module.  */
-
 void
 gnat_init_stmt_group ()
 {