diff options
| -rw-r--r-- | gcc/ChangeLog | 14 | ||||
| -rw-r--r-- | gcc/config.gcc | 4 | ||||
| -rw-r--r-- | gcc/config/s390/s390.c | 33 |
3 files changed, 39 insertions, 12 deletions
diff --git a/gcc/ChangeLog b/gcc/ChangeLog index c9be20c..1dbe439 100644 --- a/gcc/ChangeLog +++ b/gcc/ChangeLog @@ -1,3 +1,17 @@ +2006-03-29 Andreas Krebbel <krebbel1@de.ibm.com> + + * config.gcc (s390-*-linux-*, s390x-*-linux*): Add t-dfprules to + tmake_file. + * config/s390/s390.c (S390_scalar_mode_supported_p): New function. + (NR_C_MODES): Add TDmode, DDmode and SDmode. + (s390_output_pool_entry, ): Accept MODE_DECIMAL_FLOAT. + (s390_hard_regno_mode_ok): Disallow TDmode in integer regs. + (s390_function_arg_float): Allow SDmode and DDmode values to be + passed in floating point registers. + (s390_function_arg_integer, s390_function_value): Replace MODE_FLOAT + check with SCALAR_FLOAT_MODE_P. + (TARGET_SCALAR_MODE_SUPPORTED_P): Define target macro. + 2006-03-28 Zdenek Dvorak <dvorakz@suse.cz> PR tree-optimization/25985 diff --git a/gcc/config.gcc b/gcc/config.gcc index 96a547e..ef6364d 100644 --- a/gcc/config.gcc +++ b/gcc/config.gcc @@ -1887,7 +1887,7 @@ rs6000-ibm-aix[56789].* | powerpc-ibm-aix[56789].*) ;; s390-*-linux*) tm_file="s390/s390.h dbxelf.h elfos.h svr4.h linux.h s390/linux.h" - tmake_file="${tmake_file} s390/t-crtstuff s390/t-linux" + tmake_file="${tmake_file} t-dfprules s390/t-crtstuff s390/t-linux" ;; s390x-*-linux*) tm_file="s390/s390x.h s390/s390.h dbxelf.h elfos.h svr4.h linux.h s390/linux.h" @@ -1895,7 +1895,7 @@ s390x-*-linux*) md_file=s390/s390.md extra_modes=s390/s390-modes.def out_file=s390/s390.c - tmake_file="${tmake_file} s390/t-crtstuff s390/t-linux s390/t-linux64" + tmake_file="${tmake_file} t-dfprules s390/t-crtstuff s390/t-linux s390/t-linux64" ;; s390x-ibm-tpf*) tm_file="s390/s390x.h s390/s390.h dbxelf.h elfos.h svr4.h s390/tpf.h" diff --git a/gcc/config/s390/s390.c b/gcc/config/s390/s390.c index 1ee6fba..fdd4b5c 100644 --- a/gcc/config/s390/s390.c +++ b/gcc/config/s390/s390.c @@ -334,6 +334,16 @@ struct machine_function GTY(()) #define REGNO_PAIR_OK(REGNO, MODE) \ (HARD_REGNO_NREGS ((REGNO), (MODE)) == 1 || !((REGNO) & 1)) +/* Return true if the back end supports mode MODE. */ +static bool +s390_scalar_mode_supported_p (enum machine_mode mode) +{ + if (DECIMAL_FLOAT_MODE_P (mode)) + return true; + else + return default_scalar_mode_supported_p (mode); +} + /* Set the has_landing_pad_p flag in struct machine_function to VALUE. */ void @@ -5259,12 +5269,12 @@ replace_ltrel_base (rtx *x) /* We keep a list of constants which we have to add to internal constant tables in the middle of large functions. */ -#define NR_C_MODES 8 +#define NR_C_MODES 11 enum machine_mode constant_modes[NR_C_MODES] = { - TFmode, TImode, - DFmode, DImode, - SFmode, SImode, + TFmode, TImode, TDmode, + DFmode, DImode, DDmode, + SFmode, SImode, SDmode, HImode, QImode }; @@ -6207,6 +6217,7 @@ s390_output_pool_entry (rtx exp, enum machine_mode mode, unsigned int align) switch (GET_MODE_CLASS (mode)) { case MODE_FLOAT: + case MODE_DECIMAL_FLOAT: gcc_assert (GET_CODE (exp) == CONST_DOUBLE); REAL_VALUE_FROM_CONST_DOUBLE (r, exp); @@ -6782,7 +6793,7 @@ s390_hard_regno_mode_ok (unsigned int regno, enum machine_mode mode) if (REGNO_PAIR_OK (regno, mode)) { if (TARGET_64BIT - || (mode != TFmode && mode != TCmode)) + || (mode != TFmode && mode != TCmode && mode != TDmode)) return true; } break; @@ -7601,7 +7612,7 @@ s390_function_arg_float (enum machine_mode mode, tree type) /* No type info available for some library calls ... */ if (!type) - return mode == SFmode || mode == DFmode; + return mode == SFmode || mode == DFmode || mode == SDmode || mode == DDmode; /* The ABI says that record types with a single member are treated just like that member would be. */ @@ -7643,7 +7654,7 @@ s390_function_arg_integer (enum machine_mode mode, tree type) /* No type info available for some library calls ... */ if (!type) return GET_MODE_CLASS (mode) == MODE_INT - || (TARGET_SOFT_FLOAT && GET_MODE_CLASS (mode) == MODE_FLOAT); + || (TARGET_SOFT_FLOAT && SCALAR_FLOAT_MODE_P (mode)); /* We accept small integral (and similar) types. */ if (INTEGRAL_TYPE_P (type) @@ -7805,11 +7816,10 @@ s390_function_value (tree type, enum machine_mode mode) mode = promote_mode (type, TYPE_MODE (type), &unsignedp, 1); } - gcc_assert (GET_MODE_CLASS (mode) == MODE_INT - || GET_MODE_CLASS (mode) == MODE_FLOAT); + gcc_assert (GET_MODE_CLASS (mode) == MODE_INT || SCALAR_FLOAT_MODE_P (mode)); gcc_assert (GET_MODE_SIZE (mode) <= 8); - if (TARGET_HARD_FLOAT && GET_MODE_CLASS (mode) == MODE_FLOAT) + if (TARGET_HARD_FLOAT && SCALAR_FLOAT_MODE_P (mode)) return gen_rtx_REG (mode, 16); else return gen_rtx_REG (mode, 2); @@ -9303,6 +9313,9 @@ s390_reorg (void) #define TARGET_MANGLE_FUNDAMENTAL_TYPE s390_mangle_fundamental_type #endif +#undef TARGET_SCALAR_MODE_SUPPORTED_P +#define TARGET_SCALAR_MODE_SUPPORTED_P s390_scalar_mode_supported_p + struct gcc_target targetm = TARGET_INITIALIZER; #include "gt-s390.h" |