From f8a70154a645c93d43c7c6a9a56661dd196ecce2 Mon Sep 17 00:00:00 2001 From: burnus Date: Mon, 3 Sep 2012 14:06:27 +0000 Subject: [PATCH] 2012-09-03 Tobias Burnus PR fortran/54467 * class.c (gfc_find_derived_vtab): Fix disabling of _final by continuing to generate normal type-bound procedures. git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@190892 138bc75d-0d04-0410-961f-82ee72b054a4 --- gcc/fortran/ChangeLog | 6 ++++++ gcc/fortran/class.c | 2 +- 2 files changed, 7 insertions(+), 1 deletion(-) diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog index 3c1b196..c1de983 100644 --- a/gcc/fortran/ChangeLog +++ b/gcc/fortran/ChangeLog @@ -1,5 +1,11 @@ 2012-09-03 Tobias Burnus + PR fortran/54467 + * class.c (gfc_find_derived_vtab): Fix disabling of _final + by continuing to generate normal type-bound procedures. + +2012-09-03 Tobias Burnus + * class.c (gfc_find_derived_vtab): Disable ABI-breaking generation of the "_final" subroutine for now. diff --git a/gcc/fortran/class.c b/gcc/fortran/class.c index 5943ab8..dca2cfc 100644 --- a/gcc/fortran/class.c +++ b/gcc/fortran/class.c @@ -1634,10 +1634,10 @@ gfc_find_derived_vtab (gfc_symbol *derived) c->tb = XCNEW (gfc_typebound_proc); c->tb->ppc = 1; generate_finalization_wrapper (derived, ns, tname, c); + } /* Add procedure pointers for type-bound procedures. */ add_procs_to_declared_vtab (derived, vtype); - } } have_vtype: -- 2.7.4