PR fortran/3392

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

git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@49520 138bc75d-0d04-0410-961f-82ee72b054a4

diff --git a/gcc/ChangeLog b/gcc/ChangeLog
index 3c7d686..107ec4b 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 83df738..8c19a99 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;