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

diff --git a/gcc/ChangeLog b/gcc/ChangeLog
index 3c7d686e5cfacf8e4c8ccce82829fda4662434bc..107ec4b0fbcee275d21fdd847f02c29dec6464af 100644 (file)
--- a/gcc/ChangeLog
+++ b/gcc/ChangeLog
@@ -1,3 +1,9 @@
+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

diff --git a/gcc/config/mips/mips.c b/gcc/config/mips/mips.c
index 83df73878f5c71882da1e0735e149f61fc13132d..8c19a992459c251c02d3c87fc82b09f9819b75d5 100644 (file)
--- a/gcc/config/mips/mips.c
+++ b/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;