From c101fad870ddf376d5722e5b2a9ee0f32888d056 Mon Sep 17 00:00:00 2001 From: Paul Thomas Date: Mon, 24 Oct 2016 11:45:17 +0000 Subject: [PATCH] Remove dead wood from trans-expr.c From-SVN: r241472 --- gcc/fortran/trans-expr.c | 21 --------------------- 1 file changed, 21 deletions(-) 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 */