fix fortran/3392

[Richard Henderson]

Really very simple if you know what you're looking at.  ;-)


r~


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

Index: mips.c
===================================================================
RCS file: /cvs/gcc/gcc/gcc/config/mips/mips.c,v
retrieving revision 1.173
diff -c -p -d -r1.173 mips.c
*** mips.c	2002/01/03 17:40:04	1.173
--- mips.c	2002/02/05 09:24:13
*************** function_arg_advance (cum, mode, type, n
*** 3948,3953 ****
--- 3948,3954 ----
        break;
  
      case DImode:
+     case TImode:
        cum->gp_reg_found = 1;
        cum->arg_words += (TARGET_64BIT ? 1 : 2);
        break;
*************** function_arg (cum, mode, type, named)
*** 4074,4079 ****
--- 4075,4081 ----
        break;
  
      case DImode:
+     case TImode:
        if (! TARGET_64BIT)
  	cum->arg_words += (cum->arg_words & 1);
        regbase = GP_ARG_FIRST;