re PR fortran/3392 (ICE in function_arg, at config/mips/mips.c:4007)

        PR fortran/3392
        * config/mips/mips.c (function_arg): Handle TImode.
        (function_arg_advance): Likewise.

From-SVN: r49520

gcc/ChangeLog

+2002-02-05  Richard Henderson  <rth@redhat.com>
+
+	PR fortran/3392
+	* config/mips/mips.c (function_arg): Handle TImode.
+	(function_arg_advance): Likewise.
+
 2002-02-05  Aldy Hernandez  <aldyh@redhat.com>
 
         * config/rs6000/altivec.h (vec_step_help): Rename to

gcc/config/mips/mips.c

@@ -3948,6 +3948,7 @@ function_arg_advance (cum, mode, type, named)
       break;
 
     case DImode:
+    case TImode:
       cum->gp_reg_found = 1;
       cum->arg_words += (TARGET_64BIT ? 1 : 2);
       break;
@@ -4074,6 +4075,7 @@ function_arg (cum, mode, type, named)
       break;
 
     case DImode:
+    case TImode:
       if (! TARGET_64BIT)
 	cum->arg_words += (cum->arg_words & 1);
       regbase = GP_ARG_FIRST;