From: Paul Thomas <pault@gcc.gnu.org>
Date: Mon, 24 Oct 2016 11:45:17 +0000 (+0000)
Subject: Remove dead wood from trans-expr.c
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=c101fad870ddf376d5722e5b2a9ee0f32888d056;p=gcc.git

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 f1849f5e091..fc03a23d9ed 100644
--- 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  */