Remove dead wood from trans-expr.c

From-SVN: r241472

diff --git a/gcc/fortran/trans-expr.c b/gcc/fortran/trans-expr.c
index f1849f5e091ca7b989e986df4c27a7b47ba79394..fc03a23d9ed546f62142ee198f53850e371fb1ad 100644 (file)
--- a/gcc/fortran/trans-expr.c
+++ b/gcc/fortran/trans-expr.c
@@ -1508,27 +1508,6 @@ gfc_trans_class_init_assign (gfc_code *code)
 }
 
 
-/* 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).  */
-
-
 /* End of prototype trans-class.c  */