|
|
Author: jakub
Update of /cvs/dist/rpms/gcc/devel
In directory cvs.devel.redhat.com:/tmp/cvs-serv9913
Modified Files:
gcc41-pr29641.patch
Log Message:
4.1.1-32
gcc41-pr29641.patch:
0 files changed
Index: gcc41-pr29641.patch
===================================================================
RCS file: /cvs/dist/rpms/gcc/devel/gcc41-pr29641.patch,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -r1.1 -r1.2
--- gcc41-pr29641.patch 4 Nov 2006 09:29:17 -0000 1.1
+++ gcc41-pr29641.patch 4 Nov 2006 09:45:25 -0000 1.2
@@ -9,15 +9,14 @@
--- gcc/fortran/trans-types.c (revision 118219)
+++ gcc/fortran/trans-types.c (revision 118220)
-@@ -1482,11 +1482,15 @@ gfc_get_derived_type (gfc_symbol * deriv
- building anew so that potential dummy and actual arguments use the
+@@ -1467,10 +1467,15 @@ gfc_get_derived_type (gfc_symbol * deriv
same TREE_TYPE. If an equal type is found without a backend_decl,
build the parent version and use it in the current namespace. */
--
+
- /* Derived types in an interface body obtain their parent reference
- through the proc_name symbol. */
- ns = derived->ns->parent ? derived->ns->parent
-- : derived->ns->proc_name->ns;
+- : derived->ns->proc_name->ns->parent;
+ if (derived->ns->parent)
+ ns = derived->ns->parent;
+ else if (derived->ns->proc_name)
--
fedora-cvs-commits mailing list
fedora-cvs-commits@xxxxxxxxxx
https://www.redhat.com/mailman/listinfo/fedora-cvs-commits
|
|