diff options
| author | Andreas Schwab <schwab@suse.de> | 2004-07-14 13:09:43 +0000 |
|---|---|---|
| committer | Andreas Schwab <schwab@gcc.gnu.org> | 2004-07-14 13:09:43 +0000 |
| commit | a1c7af89120cc79a5668f711a76ee51d0fbad5fd (patch) | |
| tree | 2ea9086ac4845b4eaec92954a27637bbf297d942 /gcc/ada | |
| parent | 220a826e6d1fa35c9b64abea2f4dbc662ecb5126 (diff) | |
| download | gcc-a1c7af89120cc79a5668f711a76ee51d0fbad5fd.zip gcc-a1c7af89120cc79a5668f711a76ee51d0fbad5fd.tar.gz gcc-a1c7af89120cc79a5668f711a76ee51d0fbad5fd.tar.bz2 | |
* trans.c (gnat_init_stmt_group): Remove duplicate definition.
From-SVN: r84684
Diffstat (limited to 'gcc/ada')
| -rw-r--r-- | gcc/ada/ChangeLog | 4 | ||||
| -rw-r--r-- | gcc/ada/trans.c | 22 |
2 files changed, 4 insertions, 22 deletions
diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog index 5450f60..82315c9 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 6635c1df..0cc6f95 100644 --- a/gcc/ada/trans.c +++ b/gcc/ada/trans.c @@ -297,28 +297,6 @@ gnat_init_stmt_group () REAL_ARITHMETIC (dconstmp5, RDIV_EXPR, dconstm1, dconst2); } -/* 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); -} - /* This function is the driver of the GNAT to GCC tree transformation process. It is the entry point of the tree transformer. GNAT_NODE is the root of some GNAT tree. Return the root of the corresponding GCC tree. |