diff options
| author | Paul Thomas <pault@gcc.gnu.org> | 2016-10-24 11:45:17 +0000 |
|---|---|---|
| committer | Paul Thomas <pault@gcc.gnu.org> | 2016-10-24 11:45:17 +0000 |
| commit | c101fad870ddf376d5722e5b2a9ee0f32888d056 (patch) | |
| tree | ac1d98781d7886bb60612492f9afc83ceac2158f /gcc/fortran/trans-expr.c | |
| parent | e77cf8c6d64a3561fd1bbe3c9cf30aa985b90bef (diff) | |
| download | gcc-c101fad870ddf376d5722e5b2a9ee0f32888d056.zip gcc-c101fad870ddf376d5722e5b2a9ee0f32888d056.tar.gz gcc-c101fad870ddf376d5722e5b2a9ee0f32888d056.tar.bz2 | |
Remove dead wood from trans-expr.c
From-SVN: r241472
Diffstat (limited to 'gcc/fortran/trans-expr.c')
| -rw-r--r-- | gcc/fortran/trans-expr.c | 21 |
1 files changed, 0 insertions, 21 deletions
diff --git a/gcc/fortran/trans-expr.c b/gcc/fortran/trans-expr.c index f1849f5..fc03a23 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 */ |