[Patch, Fortran] PR 38160 - C Binding: Kind parameter checking too strict and too late

Steve Kargl sgk@troutmask.apl.washington.edu
Sun Nov 16 20:30:00 GMT 2008


On Sun, Nov 16, 2008 at 09:06:31PM +0100, Tobias Burnus wrote:
> Index: gcc/fortran/symbol.c
> ===================================================================
> --- gcc/fortran/symbol.c	(Revision 141918)
> +++ gcc/fortran/symbol.c	(Arbeitskopie)
> @@ -3003,6 +3003,24 @@ gfc_free_finalizer_list (gfc_finalizer*
>  }
>  
>  
> +/* Free the charlen list from cl to end (end is not freed). 
> +   Free the whole list if end is NULL.  */
> +
> +void gfc_free_charlen (gfc_charlen *cl, gfc_charlen *end)
> +{
> +  gfc_charlen *cl2;
> +
> +  for (; cl != end; cl = cl2)
> +    {
> +      gcc_assert (cl);
> +
> +      cl2 = cl->next;
> +      gfc_free_expr (cl->length);
> +      gfc_free (cl);
> +    }
> +}

It looks like you have two patches mingled here.  At least, 
your ChangeLog does mention the above.

-- 
steve



More information about the Gcc-patches mailing list