gcc/fortran:

[pf3gnuchains/gcc-fork.git] / gcc / ipa.c

diff --git a/gcc/ipa.c b/gcc/ipa.c
index 68e65a9..5326af6 100644 (file)
--- a/gcc/ipa.c
+++ b/gcc/ipa.c
@@ -58,7 +58,7 @@ cgraph_postorder (struct cgraph_node **order)
          {
            while (node2->aux != &last)
              {
-               edge = node2->aux;
+               edge = (struct cgraph_edge *) node2->aux;
                if (edge->next_caller)
                  node2->aux = edge->next_caller;
                else
@@ -98,7 +98,7 @@ cgraph_postorder (struct cgraph_node **order)
 bool
 cgraph_remove_unreachable_nodes (bool before_inlining_p, FILE *file)
 {
-  struct cgraph_node *first = (void *) 1;
+  struct cgraph_node *first = (struct cgraph_node *) (void *) 1;
   struct cgraph_node *node, *next;
   bool changed = false;
   int insns = 0;
@@ -131,7 +131,7 @@ cgraph_remove_unreachable_nodes (bool before_inlining_p, FILE *file)
     {
       struct cgraph_edge *e;
       node = first;
-      first = first->aux;
+      first = (struct cgraph_node *) first->aux;
 
       for (e = node->callees; e; e = e->next_callee)
        if (!e->callee->aux
@@ -206,6 +206,9 @@ cgraph_remove_unreachable_nodes (bool before_inlining_p, FILE *file)
     node->aux = NULL;
   if (file)
     fprintf (file, "\nReclaimed %i insns", insns);
+#ifdef ENABLE_CHECKING
+  verify_cgraph ();
+#endif
   return changed;
 }
 
@@ -220,7 +223,7 @@ cgraph_remove_unreachable_nodes (bool before_inlining_p, FILE *file)
    in language point of view but we want to overwrite this default
    via visibilities for the backend point of view.  */
 
-static void
+static unsigned int
 function_and_variable_visibility (void)
 {
   struct cgraph_node *node;
@@ -272,6 +275,7 @@ function_and_variable_visibility (void)
       fprintf (dump_file, "\n\n");
     }
   cgraph_function_flags_ready = true;
+  return 0;
 }
 
 struct tree_opt_pass pass_ipa_function_and_variable_visibility =