From: Andreas Schwab <schwab@suse.de>
Date: Wed, 14 Jul 2004 13:09:43 +0000 (+0000)
Subject: * trans.c (gnat_init_stmt_group): Remove duplicate definition.
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=a1c7af89120cc79a5668f711a76ee51d0fbad5fd;p=gcc.git

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

From-SVN: r84684
---

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  <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 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 ()
 {