class.c (gfc_find_derived_vtab): Disable ABI-breaking generation of the "_final"...

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.

From-SVN: r190872

diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog
index 201f4dc3228ce93712794029d61bc985e783b23a..3c1b1966af33745d890cfb2aa636401fd8a5b4dd 100644 (file)
--- a/gcc/fortran/ChangeLog
+++ b/gcc/fortran/ChangeLog
@@ -1,3 +1,8 @@
+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.

diff --git a/gcc/fortran/class.c b/gcc/fortran/class.c
index 71065d25841d30a8e2904eccc289595b0884f935..5943ab835bb9ec49e959888b7cd93efd23e62367 100644 (file)
--- 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;