summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorburnus <burnus@138bc75d-0d04-0410-961f-82ee72b054a4>2012-09-03 07:51:05 +0000
committerburnus <burnus@138bc75d-0d04-0410-961f-82ee72b054a4>2012-09-03 07:51:05 +0000
commit9cc1eb5a9e4e7ed4fea21a67fb20abdbfd1e553e (patch)
tree9af348b9b0552707652cb4243690e25c2ca5df20
parent9badbcf86985820ab70df27e4b15767c0ee2c940 (diff)
downloadgcc-9cc1eb5a9e4e7ed4fea21a67fb20abdbfd1e553e.tar.gz
2012-09-03 Tobias Burnus <burnus@net-b.de>
* class.c (gfc_find_derived_vtab): Disable ABI-breaking generation of the "_final" subroutine for now. git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@190872 138bc75d-0d04-0410-961f-82ee72b054a4
-rw-r--r--gcc/fortran/ChangeLog5
-rw-r--r--gcc/fortran/class.c5
2 files changed, 9 insertions, 1 deletions
diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog
index 201f4dc3228..3c1b1966af3 100644
--- a/gcc/fortran/ChangeLog
+++ b/gcc/fortran/ChangeLog
@@ -1,5 +1,10 @@
2012-09-03 Tobias Burnus <burnus@net-b.de>
+ * class.c (gfc_find_derived_vtab): Disable ABI-breaking
+ generation of the "_final" subroutine for now.
+
+2012-09-03 Tobias Burnus <burnus@net-b.de>
+
* class.c (finalize_component): Fixes to the comment.
2012-09-03 Alessandro Fanfarillo <fanfarillo.gcc@gmail.com>
diff --git a/gcc/fortran/class.c b/gcc/fortran/class.c
index 71065d25841..5943ab835bb 100644
--- a/gcc/fortran/class.c
+++ b/gcc/fortran/class.c
@@ -1624,7 +1624,9 @@ gfc_find_derived_vtab (gfc_symbol *derived)
components and the calls to finalization subroutines.
Note: The actual wrapper function can only be generated
at resolution time. */
-
+ /* FIXME: Enable ABI-breaking "_final" generation. */
+ if (0)
+ {
if (gfc_add_component (vtype, "_final", &c) == FAILURE)
goto cleanup;
c->attr.proc_pointer = 1;
@@ -1636,6 +1638,7 @@ gfc_find_derived_vtab (gfc_symbol *derived)
/* Add procedure pointers for type-bound procedures. */
add_procs_to_declared_vtab (derived, vtype);
}
+ }
have_vtype:
vtab->ts.u.derived = vtype;