[PATCH, Fortran] A tweak to fortran -> call graph interface

[PATCH, Fortran] A tweak to fortran -> call graph interface

[Martin Jambor]

Hi,

this is a ping of a patch from the big cgraph_removal series that has
not got in yet
(http://gcc.gnu.org/ml/gcc-patches/2011-04/msg00523.html).  I'd like
some Fortran reviewers to have a look, the fewer the calls to
cgraph_get_create_node the better.

Thanks a lot,

Martin

-------------------------------------------------

It seems to me that fortran can call cgraph_create_node directly
without checking for its existence first.

Bootstrapped and tested on x86_64-linux without any problems, tests on
i686 in progress.

Thanks,

Martin


2011-03-18  Martin Jambor  <mjambor@suse.cz>

	* trans-decl.c (gfc_generate_function_code): Call cgraph_create_node
	instead of cgraph_get_create_node.

Index: src/gcc/fortran/trans-decl.c
===================================================================
--- src.orig/gcc/fortran/trans-decl.c
+++ src/gcc/fortran/trans-decl.c
@@ -5046,7 +5046,7 @@ gfc_generate_function_code (gfc_namespac
   if (decl_function_context (fndecl))
     /* Register this function with cgraph just far enough to get it
        added to our parent's nested function list.  */
-    (void) cgraph_get_create_node (fndecl);
+    (void) cgraph_create_node (fndecl);
   else
     cgraph_finalize_function (fndecl, true);
 

Re: [PATCH, Fortran] A tweak to fortran -> call graph interface

[Tobias Burnus]

Martin Jambor wrote:
> It seems to me that fortran can call cgraph_create_node directly
> without checking for its existence first.
>
> Bootstrapped and tested on x86_64-linux without any problems, tests on
> i686 in progress.

The patch is OK.

Tobias

> 2011-03-18  Martin Jambor<mjambor@suse.cz>
>
> 	* trans-decl.c (gfc_generate_function_code): Call cgraph_create_node
> 	instead of cgraph_get_create_node.
>
> Index: src/gcc/fortran/trans-decl.c
> ===================================================================
> --- src.orig/gcc/fortran/trans-decl.c
> +++ src/gcc/fortran/trans-decl.c
> @@ -5046,7 +5046,7 @@ gfc_generate_function_code (gfc_namespac
>     if (decl_function_context (fndecl))
>       /* Register this function with cgraph just far enough to get it
>          added to our parent's nested function list.  */
> -    (void) cgraph_get_create_node (fndecl);
> +    (void) cgraph_create_node (fndecl);
>     else
>       cgraph_finalize_function (fndecl, true);
>
>