Hi Paul,
concerning this:
> >> Index: gcc/fortran/trans-stmt.c
> >> ===================================================================
> >> *** gcc/fortran/trans-stmt.c (revision 241439)
> >> --- gcc/fortran/trans-stmt.c (working copy)
> >> *************** gfc_trans_do_while (gfc_code * code)
> >> *** 2331,2336 ****
> >> --- 2331,2455 ----
> > <snipp>
> >> +
> >> + /* Translate an assignment to a CLASS object
> >> + (pointer or ordinary assignment). */
> >> +
> >> +
> >
> > Here is no routine the above comment could document. Left over from prior
> > version?
>
> This is in your tree, not mine :-)
Well, now it is in everyone's tree. But I am guilty of pasting the wrong
location. The correct one is:
> Index: gcc/fortran/trans-expr.c
> ===================================================================
> *** gcc/fortran/trans-expr.c (revision 241439)
> --- gcc/fortran/trans-expr.c (working copy)
> *************** gfc_trans_class_init_assign (gfc_code *c
> *** 1508,1513 ****
> }
>
>
> + /* Return the backend_decl for the vtable of an arbitrary typespec
> + and the vtable symbol. */
> +
> + tree
> + gfc_get_vtable_decl (gfc_typespec *ts, gfc_symbol **vtab)
> + {
> + gfc_symbol *vtable = gfc_find_vtab (ts);
> + gcc_assert (vtable != NULL);
> + if (vtab != NULL)
> + *vtab = vtable;
> + if (vtable->backend_decl == NULL_TREE)
> + return gfc_get_symbol_decl (vtable);
> + else
> + return vtable->backend_decl;
> + }
> +
> +
> + /* Translate an assignment to a CLASS object
> + (pointer or ordinary assignment). */
> +
Still I do not see what the above documents. The next function is
realloc_lhs_warning () and the comment makes no sense to it.
> +
> /* End of prototype trans-class.c */
Regards,
Andre
--
Andre Vehreschild * Email: vehre ad gmx dot de
