(type_list_equal): If the types of the default arguments

        differ, the lists do not match.

From-SVN: r8015

diff --git a/gcc/tree.c b/gcc/tree.c
index 7b8fb5182c6d3b4c0e654a7b343a93a16437e148..95be3652745ba764e98529c627f08f5efda2f1f6 100644 (file)
--- a/gcc/tree.c
+++ b/gcc/tree.c
@@ -3059,7 +3059,9 @@ type_list_equal (l1, l2)
          int cmp = simple_cst_equal (TREE_PURPOSE (t1), TREE_PURPOSE (t2));
          if (cmp < 0)
            abort ();
-         if (cmp == 0)
+         if (cmp == 0
+             || TREE_TYPE (TREE_PURPOSE (t1))
+                != TREE_TYPE (TREE_PURPOSE (t2)))
            return 0;
        }
     }