* dwarf2out.c (lower_bound_default): For DW_LANG_Python return

[pf3gnuchains/gcc-fork.git] / gcc / loop-init.c

diff --git a/gcc/loop-init.c b/gcc/loop-init.c
index 2c7f37a..854bb97 100644 (file)
--- a/gcc/loop-init.c
+++ b/gcc/loop-init.c
@@ -1,11 +1,12 @@
 /* Loop optimizer initialization routines and RTL loop optimization passes.
 /* Loop optimizer initialization routines and RTL loop optimization passes.

-   Copyright (C) 2002, 2003, 2004, 2005 Free Software Foundation, Inc.
+   Copyright (C) 2002, 2003, 2004, 2005, 2006, 2007, 2008
+   Free Software Foundation, Inc.

 
 This file is part of GCC.
 
 GCC is free software; you can redistribute it and/or modify it under
 the terms of the GNU General Public License as published by the Free
 
 This file is part of GCC.
 
 GCC is free software; you can redistribute it and/or modify it under
 the terms of the GNU General Public License as published by the Free

-Software Foundation; either version 2, or (at your option) any later
+Software Foundation; either version 3, or (at your option) any later

 version.
 
 GCC is distributed in the hope that it will be useful, but WITHOUT ANY
 version.
 
 GCC is distributed in the hope that it will be useful, but WITHOUT ANY


@@ -14,9 +15,8 @@ FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General Public License
 for more details.
 
 You should have received a copy of the GNU General Public License
 for more details.
 
 You should have received a copy of the GNU General Public License

-along with GCC; see the file COPYING.  If not, write to the Free
-Software Foundation, 51 Franklin Street, Fifth Floor, Boston, MA
-02110-1301, USA.  */
+along with GCC; see the file COPYING3.  If not see
+<http://www.gnu.org/licenses/>.  */

 
 #include "config.h"
 #include "system.h"
 
 #include "config.h"
 #include "system.h"


@@ -31,6 +31,8 @@ Software Foundation, 51 Franklin Street, Fifth Floor, Boston, MA
 #include "tree-pass.h"
 #include "timevar.h"
 #include "flags.h"
 #include "tree-pass.h"
 #include "timevar.h"
 #include "flags.h"

+#include "df.h"
+#include "ggc.h"

 
 \f
 /* Initialize loop structures.  This is used by the tree and RTL loop
 
 \f
 /* Initialize loop structures.  This is used by the tree and RTL loop


@@ -40,38 +42,39 @@ Software Foundation, 51 Franklin Street, Fifth Floor, Boston, MA
 void
 loop_optimizer_init (unsigned flags)
 {
 void
 loop_optimizer_init (unsigned flags)
 {

-  edge e;
-  edge_iterator ei;

   struct loops *loops;
 
   gcc_assert (!current_loops);
   struct loops *loops;
 
   gcc_assert (!current_loops);

-  loops = XCNEW (struct loops);
-
-  /* Avoid annoying special cases of edges going to exit
-     block.  */
-
-  for (ei = ei_start (EXIT_BLOCK_PTR->preds); (e = ei_safe_edge (ei)); )
-    if ((e->flags & EDGE_FALLTHRU) && !single_succ_p (e->src))
-      split_edge (e);
-    else
-      ei_next (&ei);
+  loops = GGC_CNEW (struct loops);

 
   /* Find the loops.  */
 
   flow_loops_find (loops);
   current_loops = loops;
 
 
   /* Find the loops.  */
 
   flow_loops_find (loops);
   current_loops = loops;
 

-  if (number_of_loops () <= 1)
+  if (flags & LOOPS_MAY_HAVE_MULTIPLE_LATCHES)

     {
     {

-      /* No loops (the 1 returned by number_of_loops corresponds to the fake
-        loop that we put as a root of the loop tree).  */
-      loop_optimizer_finalize ();
-      return;
+      /* If the loops may have multiple latches, we cannot canonicalize
+        them further (and most of the loop manipulation functions will
+        not work).  However, we avoid modifying cfg, which some
+        passes may want.  */
+      gcc_assert ((flags & ~(LOOPS_MAY_HAVE_MULTIPLE_LATCHES
+                            | LOOPS_HAVE_RECORDED_EXITS)) == 0);
+      loops_state_set (LOOPS_MAY_HAVE_MULTIPLE_LATCHES);

     }
     }

+  else
+    disambiguate_loops_with_multiple_latches ();

 
   /* Create pre-headers.  */
   if (flags & LOOPS_HAVE_PREHEADERS)
 
   /* Create pre-headers.  */
   if (flags & LOOPS_HAVE_PREHEADERS)

-    create_preheaders (CP_SIMPLE_PREHEADERS);
+    {
+      int cp_flags = CP_SIMPLE_PREHEADERS;
+
+      if (flags & LOOPS_HAVE_FALLTHRU_PREHEADERS)
+        cp_flags |= CP_FALLTHRU_PREHEADERS;
+
+      create_preheaders (cp_flags);
+    }

 
   /* Force all latches to have only single successor.  */
   if (flags & LOOPS_HAVE_SIMPLE_LATCHES)
 
   /* Force all latches to have only single successor.  */
   if (flags & LOOPS_HAVE_SIMPLE_LATCHES)


@@ -102,8 +105,7 @@ loop_optimizer_finalize (void)
   struct loop *loop;
   basic_block bb;
 
   struct loop *loop;
   basic_block bb;
 

-  if (!current_loops)
-    return;
+  gcc_assert (current_loops != NULL);

 
   FOR_EACH_LOOP (li, loop, 0)
     {
 
   FOR_EACH_LOOP (li, loop, 0)
     {


@@ -111,10 +113,10 @@ loop_optimizer_finalize (void)
     }
 
   /* Clean up.  */
     }
 
   /* Clean up.  */

-  if (current_loops->state & LOOPS_HAVE_RECORDED_EXITS)
+  if (loops_state_satisfies_p (LOOPS_HAVE_RECORDED_EXITS))

     release_recorded_exits ();
   flow_loops_free (current_loops);
     release_recorded_exits ();
   flow_loops_free (current_loops);

-  free (current_loops);
+  ggc_free (current_loops);

   current_loops = NULL;
 
   FOR_ALL_BB (bb)
   current_loops = NULL;
 
   FOR_ALL_BB (bb)


@@ -124,7 +126,10 @@ loop_optimizer_finalize (void)
 
   /* Checking.  */
 #ifdef ENABLE_CHECKING
 
   /* Checking.  */
 #ifdef ENABLE_CHECKING

-  verify_flow_info ();
+  /* FIXME: no point to verify flow info after bundling on ia64.  Use this
+     hack for achieving this.  */
+  if (!reload_completed)
+    verify_flow_info ();

 #endif
 }
 
 #endif
 }
 


@@ -146,8 +151,10 @@ gate_handle_loop2 (void)
              ));
 }
 
              ));
 }
 

-struct tree_opt_pass pass_loop2 =
+struct rtl_opt_pass pass_loop2 =

 {
 {

+ {
+  RTL_PASS,

   "loop2",                              /* name */
   gate_handle_loop2,                   /* gate */
   NULL,                                 /* execute */
   "loop2",                              /* name */
   gate_handle_loop2,                   /* gate */
   NULL,                                 /* execute */


@@ -160,8 +167,8 @@ struct tree_opt_pass pass_loop2 =
   0,                                    /* properties_destroyed */
   0,                                    /* todo_flags_start */
   TODO_dump_func |
   0,                                    /* properties_destroyed */
   0,                                    /* todo_flags_start */
   TODO_dump_func |

-  TODO_ggc_collect,                     /* todo_flags_finish */
-  'L'                                   /* letter */
+  TODO_ggc_collect                      /* todo_flags_finish */
+ }

 };
 
 \f
 };
 
 \f


@@ -169,18 +176,19 @@ struct tree_opt_pass pass_loop2 =
 static unsigned int
 rtl_loop_init (void)
 {
 static unsigned int
 rtl_loop_init (void)
 {

+  gcc_assert (current_ir_type () == IR_RTL_CFGLAYOUT);
+

   if (dump_file)
     dump_flow_info (dump_file, dump_flags);
 
   if (dump_file)
     dump_flow_info (dump_file, dump_flags);
 

-  /* Initialize structures for layout changes.  */
-  cfg_layout_initialize (0);
-

   loop_optimizer_init (LOOPS_NORMAL);
   return 0;
 }
 
   loop_optimizer_init (LOOPS_NORMAL);
   return 0;
 }
 

-struct tree_opt_pass pass_rtl_loop_init =
+struct rtl_opt_pass pass_rtl_loop_init =

 {
 {

+ {
+  RTL_PASS,

   "loop2_init",                           /* name */
   NULL,                                 /* gate */
   rtl_loop_init,                        /* execute */
   "loop2_init",                           /* name */
   NULL,                                 /* gate */
   rtl_loop_init,                        /* execute */


@@ -192,8 +200,8 @@ struct tree_opt_pass pass_rtl_loop_init =
   0,                                    /* properties_provided */
   0,                                    /* properties_destroyed */
   0,                                    /* todo_flags_start */
   0,                                    /* properties_provided */
   0,                                    /* properties_destroyed */
   0,                                    /* todo_flags_start */

-  TODO_dump_func,                       /* todo_flags_finish */
-  'L'                                   /* letter */
+  TODO_dump_func | TODO_verify_rtl_sharing /* todo_flags_finish */
+ }

 };
 
 \f
 };
 
 \f


@@ -202,28 +210,20 @@ struct tree_opt_pass pass_rtl_loop_init =
 static unsigned int
 rtl_loop_done (void)
 {
 static unsigned int
 rtl_loop_done (void)
 {

-  basic_block bb;
-

   loop_optimizer_finalize ();
   free_dominance_info (CDI_DOMINATORS);
 
   loop_optimizer_finalize ();
   free_dominance_info (CDI_DOMINATORS);
 

-  /* Finalize layout changes.  */
-  FOR_EACH_BB (bb)
-    if (bb->next_bb != EXIT_BLOCK_PTR)
-      bb->aux = bb->next_bb;
-  cfg_layout_finalize ();
-
-  cleanup_cfg (CLEANUP_EXPENSIVE);
-  delete_trivially_dead_insns (get_insns (), max_reg_num ());
-  reg_scan (get_insns (), max_reg_num ());
+  cleanup_cfg (0);

   if (dump_file)
     dump_flow_info (dump_file, dump_flags);
 
   return 0;
 }
 
   if (dump_file)
     dump_flow_info (dump_file, dump_flags);
 
   return 0;
 }
 

-struct tree_opt_pass pass_rtl_loop_done =
+struct rtl_opt_pass pass_rtl_loop_done =

 {
 {

+ {
+  RTL_PASS,

   "loop2_done",                          /* name */
   NULL,                                 /* gate */
   rtl_loop_done,                        /* execute */
   "loop2_done",                          /* name */
   NULL,                                 /* gate */
   rtl_loop_done,                        /* execute */


@@ -235,8 +235,8 @@ struct tree_opt_pass pass_rtl_loop_done =
   0,                                    /* properties_provided */
   0,                                    /* properties_destroyed */
   0,                                    /* todo_flags_start */
   0,                                    /* properties_provided */
   0,                                    /* properties_destroyed */
   0,                                    /* todo_flags_start */

-  TODO_dump_func,                       /* todo_flags_finish */
-  'L'                                   /* letter */
+  TODO_dump_func | TODO_verify_rtl_sharing /* todo_flags_finish */
+ }

 };
 
 \f
 };
 
 \f


@@ -250,26 +250,30 @@ gate_rtl_move_loop_invariants (void)
 static unsigned int
 rtl_move_loop_invariants (void)
 {
 static unsigned int
 rtl_move_loop_invariants (void)
 {

-  if (current_loops)
+  if (number_of_loops () > 1)

     move_loop_invariants ();
   return 0;
 }
 
     move_loop_invariants ();
   return 0;
 }
 

-struct tree_opt_pass pass_rtl_move_loop_invariants =
+struct rtl_opt_pass pass_rtl_move_loop_invariants =

 {
 {

-  "loop2_invariant",                     /* name */
+ {
+  RTL_PASS,
+  "loop2_invariant",                    /* name */

   gate_rtl_move_loop_invariants,        /* gate */
   rtl_move_loop_invariants,             /* execute */
   NULL,                                 /* sub */
   NULL,                                 /* next */
   0,                                    /* static_pass_number */
   gate_rtl_move_loop_invariants,        /* gate */
   rtl_move_loop_invariants,             /* execute */
   NULL,                                 /* sub */
   NULL,                                 /* next */
   0,                                    /* static_pass_number */

-  TV_LOOP,                              /* tv_id */
+  TV_LOOP_MOVE_INVARIANTS,              /* tv_id */

   0,                                    /* properties_required */
   0,                                    /* properties_provided */
   0,                                    /* properties_destroyed */
   0,                                    /* todo_flags_start */
   0,                                    /* properties_required */
   0,                                    /* properties_provided */
   0,                                    /* properties_destroyed */
   0,                                    /* todo_flags_start */

-  TODO_dump_func,                       /* todo_flags_finish */
-  'L'                                   /* letter */
+  TODO_df_verify |
+  TODO_df_finish | TODO_verify_rtl_sharing |
+  TODO_dump_func                        /* todo_flags_finish */
+ }

 };
 
 \f
 };
 
 \f


@@ -283,26 +287,28 @@ gate_rtl_unswitch (void)
 static unsigned int
 rtl_unswitch (void)
 {
 static unsigned int
 rtl_unswitch (void)
 {

-  if (current_loops)
+  if (number_of_loops () > 1)

     unswitch_loops ();
   return 0;
 }
 
     unswitch_loops ();
   return 0;
 }
 

-struct tree_opt_pass pass_rtl_unswitch =
+struct rtl_opt_pass pass_rtl_unswitch =

 {
 {

+ {
+  RTL_PASS,

   "loop2_unswitch",                      /* name */
   gate_rtl_unswitch,                    /* gate */
   rtl_unswitch,                         /* execute */
   NULL,                                 /* sub */
   NULL,                                 /* next */
   0,                                    /* static_pass_number */
   "loop2_unswitch",                      /* name */
   gate_rtl_unswitch,                    /* gate */
   rtl_unswitch,                         /* execute */
   NULL,                                 /* sub */
   NULL,                                 /* next */
   0,                                    /* static_pass_number */

-  TV_LOOP,                              /* tv_id */
+  TV_LOOP_UNSWITCH,                     /* tv_id */

   0,                                    /* properties_required */
   0,                                    /* properties_provided */
   0,                                    /* properties_destroyed */
   0,                                    /* todo_flags_start */
   0,                                    /* properties_required */
   0,                                    /* properties_provided */
   0,                                    /* properties_destroyed */
   0,                                    /* todo_flags_start */

-  TODO_dump_func,                       /* todo_flags_finish */
-  'L'                                   /* letter */
+  TODO_dump_func | TODO_verify_rtl_sharing, /* todo_flags_finish */
+ }

 };
 
 \f
 };
 
 \f


@@ -316,9 +322,11 @@ gate_rtl_unroll_and_peel_loops (void)
 static unsigned int
 rtl_unroll_and_peel_loops (void)
 {
 static unsigned int
 rtl_unroll_and_peel_loops (void)
 {

-  if (current_loops)
+  if (number_of_loops () > 1)

     {
       int flags = 0;
     {
       int flags = 0;

+      if (dump_file)
+       df_dump (dump_file);

 
       if (flag_peel_loops)
        flags |= UAP_PEEL;
 
       if (flag_peel_loops)
        flags |= UAP_PEEL;


@@ -332,21 +340,23 @@ rtl_unroll_and_peel_loops (void)
   return 0;
 }
 
   return 0;
 }
 

-struct tree_opt_pass pass_rtl_unroll_and_peel_loops =
+struct rtl_opt_pass pass_rtl_unroll_and_peel_loops =

 {
 {

+ {
+  RTL_PASS,

   "loop2_unroll",                        /* name */
   gate_rtl_unroll_and_peel_loops,       /* gate */
   rtl_unroll_and_peel_loops,            /* execute */
   NULL,                                 /* sub */
   NULL,                                 /* next */
   0,                                    /* static_pass_number */
   "loop2_unroll",                        /* name */
   gate_rtl_unroll_and_peel_loops,       /* gate */
   rtl_unroll_and_peel_loops,            /* execute */
   NULL,                                 /* sub */
   NULL,                                 /* next */
   0,                                    /* static_pass_number */

-  TV_LOOP,                              /* tv_id */
+  TV_LOOP_UNROLL,                       /* tv_id */

   0,                                    /* properties_required */
   0,                                    /* properties_provided */
   0,                                    /* properties_destroyed */
   0,                                    /* todo_flags_start */
   0,                                    /* properties_required */
   0,                                    /* properties_provided */
   0,                                    /* properties_destroyed */
   0,                                    /* todo_flags_start */

-  TODO_dump_func,                       /* todo_flags_finish */
-  'L'                                   /* letter */
+  TODO_dump_func | TODO_verify_rtl_sharing, /* todo_flags_finish */
+ }

 };
 
 \f
 };
 
 \f


@@ -365,26 +375,28 @@ static unsigned int
 rtl_doloop (void)
 {
 #ifdef HAVE_doloop_end
 rtl_doloop (void)
 {
 #ifdef HAVE_doloop_end

-  if (current_loops)
+  if (number_of_loops () > 1)

     doloop_optimize_loops ();
 #endif
   return 0;
 }
 
     doloop_optimize_loops ();
 #endif
   return 0;
 }
 

-struct tree_opt_pass pass_rtl_doloop =
+struct rtl_opt_pass pass_rtl_doloop =

 {
 {

+ {
+  RTL_PASS,

   "loop2_doloop",                        /* name */
   gate_rtl_doloop,                      /* gate */
   rtl_doloop,                           /* execute */
   NULL,                                 /* sub */
   NULL,                                 /* next */
   0,                                    /* static_pass_number */
   "loop2_doloop",                        /* name */
   gate_rtl_doloop,                      /* gate */
   rtl_doloop,                           /* execute */
   NULL,                                 /* sub */
   NULL,                                 /* next */
   0,                                    /* static_pass_number */

-  TV_LOOP,                              /* tv_id */
+  TV_LOOP_DOLOOP,                       /* tv_id */

   0,                                    /* properties_required */
   0,                                    /* properties_provided */
   0,                                    /* properties_destroyed */
   0,                                    /* todo_flags_start */
   0,                                    /* properties_required */
   0,                                    /* properties_provided */
   0,                                    /* properties_destroyed */
   0,                                    /* todo_flags_start */

-  TODO_dump_func,                       /* todo_flags_finish */
-  'L'                                   /* letter */
+  TODO_dump_func | TODO_verify_rtl_sharing /* todo_flags_finish */
+ }

 };
 
 };