From 794ad79db4f21046b9b060c28d82c681057da61f Mon Sep 17 00:00:00 2001 From: Richard Henderson Date: Tue, 5 Feb 2002 01:27:15 -0800 Subject: [PATCH] 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 | 6 ++++++ gcc/config/mips/mips.c | 2 ++ 2 files changed, 8 insertions(+) diff --git a/gcc/ChangeLog b/gcc/ChangeLog index 3c7d686e5cf..107ec4b0fbc 100644 --- a/gcc/ChangeLog +++ b/gcc/ChangeLog @@ -1,3 +1,9 @@ +2002-02-05 Richard Henderson + + PR fortran/3392 + * config/mips/mips.c (function_arg): Handle TImode. + (function_arg_advance): Likewise. + 2002-02-05 Aldy Hernandez * config/rs6000/altivec.h (vec_step_help): Rename to diff --git a/gcc/config/mips/mips.c b/gcc/config/mips/mips.c index 83df73878f5..8c19a992459 100644 --- 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; -- 2.30.2