Skip to content

R
riscv-gcc-1
Commit 74fc61d1 by Richard Sandiford Committed by Richard Sandiford
Options

mips.c (mips_init_builtins): Simplify. 

	* config/mips/mips.c (mips_init_builtins): Simplify.  Only create
	V2SF_type_node if it will be needed.

From-SVN: r86718
parent ff55fb9c
Showing with 49 additions and 143 deletions
gcc/ChangeLog
2004-08-29 Richard Sandiford <rsandifo@redhat.com> 2004-08-29 Richard Sandiford <rsandifo@redhat.com>
* config/mips/mips.c (mips_init_builtins): Simplify. Only create
V2SF_type_node if it will be needed.
2004-08-29 Richard Sandiford <rsandifo@redhat.com>
* config/mips/mips.h (MIPS_CMP_MOVT, MIPS_CMP_MOVF): Delete. * config/mips/mips.h (MIPS_CMP_MOVT, MIPS_CMP_MOVF): Delete.
* config/mips/mips.c (mips_prepare_builtin_arg): New function. * config/mips/mips.c (mips_prepare_builtin_arg): New function.
(mips_prepare_builtin_target): New function. (mips_prepare_builtin_target): New function.
......
gcc/config/mips/mips.c
...@@ -10449,175 +10449,76 @@ void ...@@ -10449,175 +10449,76 @@ void
mips_init_builtins (void) mips_init_builtins (void)
{ {
const struct builtin_description *d; const struct builtin_description *d;
size_t i; tree types[(int) MIPS_MAX_FTYPE_MAX];
tree v2sf_ftype_v2sf_v2sf; tree V2SF_type_node;
tree v2sf_ftype_sf_sf;
tree sf_ftype_v2sf;
tree v2sf_ftype_v2sf;
tree int_ftype_v2sf_v2sf;
tree int_ftype_v2sf_v2sf_v2sf_v2sf;
tree v2sf_ftype_v2sf_v2sf_int;
tree int_ftype_sf_sf;
tree int_ftype_df_df;
tree sf_ftype_sf;
tree df_ftype_df;
tree sf_ftype_sf_sf;
tree df_ftype_df_df;
tree v2sf_ftype_v2sf_v2sf_v2sf_v2sf;
tree V2SF_type_node = build_vector_type_for_mode (float_type_node, V2SFmode);
/* We have only builtins for -mpaired-single and -mips3d. */ /* We have only builtins for -mpaired-single and -mips3d. */
if (!TARGET_PAIRED_SINGLE_FLOAT) if (!TARGET_PAIRED_SINGLE_FLOAT)
return; return;
int_ftype_sf_sf V2SF_type_node = build_vector_type_for_mode (float_type_node, V2SFmode);
= build_function_type_list (integer_type_node,
float_type_node, float_type_node,
NULL_TREE);
int_ftype_df_df types[MIPS_V2SF_FTYPE_V2SF]
= build_function_type_list (integer_type_node, = build_function_type_list (V2SF_type_node, V2SF_type_node, NULL_TREE);
double_type_node, double_type_node,
NULL_TREE);
v2sf_ftype_v2sf_v2sf types[MIPS_V2SF_FTYPE_V2SF_V2SF]
= build_function_type_list (V2SF_type_node, = build_function_type_list (V2SF_type_node,
V2SF_type_node, V2SF_type_node, NULL_TREE); V2SF_type_node, V2SF_type_node, NULL_TREE);
v2sf_ftype_sf_sf types[MIPS_V2SF_FTYPE_V2SF_V2SF_INT]
= build_function_type_list (V2SF_type_node, = build_function_type_list (V2SF_type_node,
float_type_node, float_type_node, V2SF_type_node, V2SF_type_node,
NULL_TREE); integer_type_node, NULL_TREE);
sf_ftype_v2sf types[MIPS_V2SF_FTYPE_V2SF_V2SF_V2SF_V2SF]
= build_function_type_list (float_type_node, V2SF_type_node, NULL_TREE); = build_function_type_list (V2SF_type_node,
V2SF_type_node, V2SF_type_node,
V2SF_type_node, V2SF_type_node, NULL_TREE);
v2sf_ftype_v2sf types[MIPS_V2SF_FTYPE_SF_SF]
= build_function_type_list (V2SF_type_node, V2SF_type_node, NULL_TREE); = build_function_type_list (V2SF_type_node,
float_type_node, float_type_node, NULL_TREE);
int_ftype_v2sf_v2sf types[MIPS_INT_FTYPE_V2SF_V2SF]
= build_function_type_list (integer_type_node, = build_function_type_list (integer_type_node,
V2SF_type_node, V2SF_type_node, NULL_TREE); V2SF_type_node, V2SF_type_node, NULL_TREE);
int_ftype_v2sf_v2sf_v2sf_v2sf types[MIPS_INT_FTYPE_V2SF_V2SF_V2SF_V2SF]
= build_function_type_list (integer_type_node, = build_function_type_list (integer_type_node,
V2SF_type_node, V2SF_type_node, V2SF_type_node, V2SF_type_node,
V2SF_type_node, V2SF_type_node, NULL_TREE); V2SF_type_node, V2SF_type_node, NULL_TREE);
v2sf_ftype_v2sf_v2sf_v2sf_v2sf types[MIPS_INT_FTYPE_SF_SF]
= build_function_type_list (V2SF_type_node, = build_function_type_list (integer_type_node,
V2SF_type_node, V2SF_type_node, float_type_node, float_type_node, NULL_TREE);
V2SF_type_node, V2SF_type_node, NULL_TREE);
v2sf_ftype_v2sf_v2sf_int
= build_function_type_list (V2SF_type_node,
V2SF_type_node, V2SF_type_node,
integer_type_node, NULL_TREE);
sf_ftype_sf
= build_function_type_list (float_type_node,
float_type_node, NULL_TREE);
df_ftype_df
= build_function_type_list (double_type_node,
double_type_node, NULL_TREE);
sf_ftype_sf_sf
= build_function_type_list (float_type_node,
float_type_node, float_type_node,
NULL_TREE);
df_ftype_df_df
= build_function_type_list (double_type_node,
double_type_node, double_type_node,
NULL_TREE);
for (i = 0, d = mips_bdesc; i < ARRAY_SIZE (mips_bdesc); i++, d++)
{
if ((d->target_flags & MASK_PAIRED_SINGLE)
&& !TARGET_PAIRED_SINGLE_FLOAT)
continue;
if ((d->target_flags & MASK_MIPS3D)
&& !TARGET_MIPS3D)
continue;
switch (d->ftype)
{
case MIPS_V2SF_FTYPE_V2SF_V2SF:
lang_hooks.builtin_function (d->name, v2sf_ftype_v2sf_v2sf,
d->code, BUILT_IN_MD, NULL, NULL_TREE);
break;
case MIPS_V2SF_FTYPE_SF_SF:
lang_hooks.builtin_function (d->name, v2sf_ftype_sf_sf,
d->code, BUILT_IN_MD, NULL, NULL_TREE);
break;
case MIPS_SF_FTYPE_V2SF:
lang_hooks.builtin_function (d->name, sf_ftype_v2sf,
d->code, BUILT_IN_MD, NULL, NULL_TREE);
break;
case MIPS_V2SF_FTYPE_V2SF:
lang_hooks.builtin_function (d->name, v2sf_ftype_v2sf,
d->code, BUILT_IN_MD, NULL, NULL_TREE);
break;
case MIPS_INT_FTYPE_V2SF_V2SF:
lang_hooks.builtin_function (d->name, int_ftype_v2sf_v2sf,
d->code, BUILT_IN_MD, NULL, NULL_TREE);
break;
case MIPS_INT_FTYPE_V2SF_V2SF_V2SF_V2SF:
lang_hooks.builtin_function (d->name, int_ftype_v2sf_v2sf_v2sf_v2sf,
d->code, BUILT_IN_MD, NULL, NULL_TREE);
break;
case MIPS_V2SF_FTYPE_V2SF_V2SF_INT:
lang_hooks.builtin_function (d->name, v2sf_ftype_v2sf_v2sf_int,
d->code, BUILT_IN_MD, NULL, NULL_TREE);
break;
case MIPS_V2SF_FTYPE_V2SF_V2SF_V2SF_V2SF:
lang_hooks.builtin_function (d->name, v2sf_ftype_v2sf_v2sf_v2sf_v2sf,
d->code, BUILT_IN_MD, NULL, NULL_TREE);
break;
case MIPS_SF_FTYPE_SF: types[MIPS_INT_FTYPE_DF_DF]
lang_hooks.builtin_function (d->name, sf_ftype_sf, = build_function_type_list (integer_type_node,
d->code, BUILT_IN_MD, NULL, NULL_TREE); double_type_node, double_type_node, NULL_TREE);
break;
case MIPS_DF_FTYPE_DF: types[MIPS_SF_FTYPE_V2SF]
lang_hooks.builtin_function (d->name, df_ftype_df, = build_function_type_list (float_type_node, V2SF_type_node, NULL_TREE);
d->code, BUILT_IN_MD, NULL, NULL_TREE);
break;
case MIPS_INT_FTYPE_SF_SF: types[MIPS_SF_FTYPE_SF]
lang_hooks.builtin_function (d->name, int_ftype_sf_sf, = build_function_type_list (float_type_node,
d->code, BUILT_IN_MD, NULL, NULL_TREE); float_type_node, NULL_TREE);
break;
case MIPS_INT_FTYPE_DF_DF: types[MIPS_SF_FTYPE_SF_SF]
lang_hooks.builtin_function (d->name, int_ftype_df_df, = build_function_type_list (float_type_node,
d->code, BUILT_IN_MD, NULL, NULL_TREE); float_type_node, float_type_node, NULL_TREE);
break;
case MIPS_SF_FTYPE_SF_SF: types[MIPS_DF_FTYPE_DF]
lang_hooks.builtin_function (d->name, sf_ftype_sf_sf, = build_function_type_list (double_type_node,
d->code, BUILT_IN_MD, NULL, NULL_TREE); double_type_node, NULL_TREE);
break;
case MIPS_DF_FTYPE_DF_DF: types[MIPS_DF_FTYPE_DF_DF]
lang_hooks.builtin_function (d->name, df_ftype_df_df, = build_function_type_list (double_type_node,
d->code, BUILT_IN_MD, NULL, NULL_TREE); double_type_node, double_type_node, NULL_TREE);
break;
default: for (d = mips_bdesc; d < &mips_bdesc[ARRAY_SIZE (mips_bdesc)]; d++)
break; if ((d->target_flags & target_flags) == d->target_flags)
} lang_hooks.builtin_function (d->name, types[d->ftype],
} d->code, BUILT_IN_MD, NULL, NULL_TREE);
} }
/* Expand a __builtin_mips_movt_*_ps() or __builtin_mips_movf_*_ps() /* Expand a __builtin_mips_movt_*_ps() or __builtin_mips_movf_*_ps()
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment