(tail_recursion_args): Compare TYPE_MAIN_VARIANTs.
authorRichard Kenner <kenner@gcc.gnu.org>
Sun, 31 Dec 1995 20:31:18 +0000 (15:31 -0500)
committerRichard Kenner <kenner@gcc.gnu.org>
Sun, 31 Dec 1995 20:31:18 +0000 (15:31 -0500)
From-SVN: r10917

gcc/stmt.c

index 1c0722fd6b1511caf95176962a8ab8a8dc275c73..20b746493ca7dc558ff502d4594621fc3345594c 100644 (file)
@@ -2909,7 +2909,8 @@ tail_recursion_args (actuals, formals)
 
   for (a = actuals, f = formals, i = 0; a && f; a = TREE_CHAIN (a), f = TREE_CHAIN (f), i++)
     {
-      if (TREE_TYPE (TREE_VALUE (a)) != TREE_TYPE (f))
+      if (TYPE_MAIN_VARIANT (TREE_TYPE (TREE_VALUE (a)))
+         != TYPE_MAIN_VARIANT (TREE_TYPE (f)))
        return 0;
       if (GET_CODE (DECL_RTL (f)) != REG || DECL_MODE (f) == BLKmode)
        return 0;