Skip to content

R
riscv-gcc-1
Commit c349b2a4 by Roger Sayle Committed by Roger Sayle
Options

com.c (ffecom_init_0): Define built-in functions for atan2, exp, floor, fmod, log and pow. 


	* com.c (ffecom_init_0): Define built-in functions for atan2,
	exp, floor, fmod, log and pow.
	(duplicate_decls): Preserve assembler name when redeclaring a
	built-in.
	* com-rt.def: Implement using the built-in forms of the above
	functions rather than calling the standard C library directly.
	Correct some of the run-time prototype "codes".

From-SVN: r66714
parent 58e15542
Showing with 92 additions and 32 deletions
gcc/f/ChangeLog
2003-05-12 Roger Sayle <roger@eyesopen.com>
* com.c (ffecom_init_0): Define built-in functions for atan2,
exp, floor, fmod, log and pow.
(duplicate_decls): Preserve assembler name when redeclaring a
built-in.
* com-rt.def: Implement using the built-in forms of the above
functions rather than calling the standard C library directly.
Correct some of the run-time prototype "codes".
2003-05-11 Toon Moene <toon@moene.indiv.nluug.nl> 2003-05-11 Toon Moene <toon@moene.indiv.nluug.nl>
PR fortran/10726 PR fortran/10726
......
gcc/f/com-rt.def
...@@ -128,7 +128,7 @@ DEFGFRT (FFECOM_gfrtAMOD, "r_mod", FFECOM_rttypeREAL_F2C_, "&f", FALSE, FALSE, F ...@@ -128,7 +128,7 @@ DEFGFRT (FFECOM_gfrtAMOD, "r_mod", FFECOM_rttypeREAL_F2C_, "&f", FALSE, FALSE, F
DEFGFRT (FFECOM_gfrtANINT, "r_nint", FFECOM_rttypeREAL_F2C_, "&f", FALSE, FALSE, FALSE) DEFGFRT (FFECOM_gfrtANINT, "r_nint", FFECOM_rttypeREAL_F2C_, "&f", FALSE, FALSE, FALSE)
DEFGFRT (FFECOM_gfrtASIN, "r_asin", FFECOM_rttypeREAL_F2C_, "&f", FALSE, FALSE, FALSE) DEFGFRT (FFECOM_gfrtASIN, "r_asin", FFECOM_rttypeREAL_F2C_, "&f", FALSE, FALSE, FALSE)
DEFGFRT (FFECOM_gfrtATAN, "r_atan", FFECOM_rttypeREAL_F2C_, "&f", FALSE, FALSE, FALSE) DEFGFRT (FFECOM_gfrtATAN, "r_atan", FFECOM_rttypeREAL_F2C_, "&f", FALSE, FALSE, FALSE)
DEFGFRT (FFECOM_gfrtATAN2, "r_atn2", FFECOM_rttypeREAL_F2C_, "&f", FALSE, FALSE, FALSE) DEFGFRT (FFECOM_gfrtATAN2, "r_atn2", FFECOM_rttypeREAL_F2C_, "&f&f", FALSE, FALSE, FALSE)
DEFGFRT (FFECOM_gfrtCABS, "c_abs", FFECOM_rttypeREAL_F2C_, "&c", FALSE, FALSE, FALSE) DEFGFRT (FFECOM_gfrtCABS, "c_abs", FFECOM_rttypeREAL_F2C_, "&c", FALSE, FALSE, FALSE)
DEFGFRT (FFECOM_gfrtCCOS, "c_cos", FFECOM_rttypeCOMPLEX_F2C_, "&c", FALSE, TRUE, FALSE) DEFGFRT (FFECOM_gfrtCCOS, "c_cos", FFECOM_rttypeCOMPLEX_F2C_, "&c", FALSE, TRUE, FALSE)
DEFGFRT (FFECOM_gfrtCEXP, "c_exp", FFECOM_rttypeCOMPLEX_F2C_, "&c", FALSE, TRUE, FALSE) DEFGFRT (FFECOM_gfrtCEXP, "c_exp", FFECOM_rttypeCOMPLEX_F2C_, "&c", FALSE, TRUE, FALSE)
...@@ -260,17 +260,17 @@ DEFGFRT (FFECOM_gfrtDIMAG, "d_imag", FFECOM_rttypeDOUBLE_, "&e", FALSE, FALSE, F ...@@ -260,17 +260,17 @@ DEFGFRT (FFECOM_gfrtDIMAG, "d_imag", FFECOM_rttypeDOUBLE_, "&e", FALSE, FALSE, F
DEFGFRT (FFECOM_gfrtL_ACOS, "acos", FFECOM_rttypeDOUBLE_, "d", FALSE, FALSE, TRUE) DEFGFRT (FFECOM_gfrtL_ACOS, "acos", FFECOM_rttypeDOUBLE_, "d", FALSE, FALSE, TRUE)
DEFGFRT (FFECOM_gfrtL_ASIN, "asin", FFECOM_rttypeDOUBLE_, "d", FALSE, FALSE, TRUE) DEFGFRT (FFECOM_gfrtL_ASIN, "asin", FFECOM_rttypeDOUBLE_, "d", FALSE, FALSE, TRUE)
DEFGFRT (FFECOM_gfrtL_ATAN, "atan", FFECOM_rttypeDOUBLE_, "d", FALSE, FALSE, TRUE) DEFGFRT (FFECOM_gfrtL_ATAN, "atan", FFECOM_rttypeDOUBLE_, "d", FALSE, FALSE, TRUE)
DEFGFRT (FFECOM_gfrtL_ATAN2, "atan2", FFECOM_rttypeDOUBLE_, "d", FALSE, FALSE, TRUE) DEFGFRT (FFECOM_gfrtL_ATAN2, "__builtin_atan2", FFECOM_rttypeDOUBLE_, "dd", FALSE, FALSE, TRUE)
DEFGFRT (FFECOM_gfrtL_COS, "__builtin_cos", FFECOM_rttypeDOUBLE_, "d", FALSE, FALSE, TRUE) DEFGFRT (FFECOM_gfrtL_COS, "__builtin_cos", FFECOM_rttypeDOUBLE_, "d", FALSE, FALSE, TRUE)
DEFGFRT (FFECOM_gfrtL_COSH, "cosh", FFECOM_rttypeDOUBLE_, "d", FALSE, FALSE, TRUE) DEFGFRT (FFECOM_gfrtL_COSH, "cosh", FFECOM_rttypeDOUBLE_, "d", FALSE, FALSE, TRUE)
DEFGFRT (FFECOM_gfrtL_ERF, "erf", FFECOM_rttypeDOUBLE_, "d", FALSE, FALSE, TRUE) DEFGFRT (FFECOM_gfrtL_ERF, "erf", FFECOM_rttypeDOUBLE_, "d", FALSE, FALSE, TRUE)
DEFGFRT (FFECOM_gfrtL_ERFC, "erfc", FFECOM_rttypeDOUBLE_, "d", FALSE, FALSE, TRUE) DEFGFRT (FFECOM_gfrtL_ERFC, "erfc", FFECOM_rttypeDOUBLE_, "d", FALSE, FALSE, TRUE)
DEFGFRT (FFECOM_gfrtL_EXP, "exp", FFECOM_rttypeDOUBLE_, "d", FALSE, FALSE, TRUE) DEFGFRT (FFECOM_gfrtL_EXP, "__builtin_exp", FFECOM_rttypeDOUBLE_, "d", FALSE, FALSE, TRUE)
DEFGFRT (FFECOM_gfrtL_FLOOR, "floor", FFECOM_rttypeDOUBLE_, "d", FALSE, FALSE, TRUE) DEFGFRT (FFECOM_gfrtL_FLOOR, "__builtin_floor", FFECOM_rttypeDOUBLE_, "d", FALSE, FALSE, TRUE)
DEFGFRT (FFECOM_gfrtL_FMOD, "fmod", FFECOM_rttypeDOUBLE_, "d", FALSE, FALSE, TRUE) DEFGFRT (FFECOM_gfrtL_FMOD, "__builtin_fmod", FFECOM_rttypeDOUBLE_, "dd", FALSE, FALSE, TRUE)
DEFGFRT (FFECOM_gfrtL_LOG, "log", FFECOM_rttypeDOUBLE_, "d", FALSE, FALSE, TRUE) DEFGFRT (FFECOM_gfrtL_LOG, "__builtin_log", FFECOM_rttypeDOUBLE_, "d", FALSE, FALSE, TRUE)
DEFGFRT (FFECOM_gfrtL_LOG10, "log10", FFECOM_rttypeDOUBLE_, "d", FALSE, FALSE, TRUE) DEFGFRT (FFECOM_gfrtL_LOG10, "log10", FFECOM_rttypeDOUBLE_, "d", FALSE, FALSE, TRUE)
DEFGFRT (FFECOM_gfrtL_POW, "pow", FFECOM_rttypeDOUBLE_, "d", FALSE, FALSE, TRUE) DEFGFRT (FFECOM_gfrtL_POW, "__builtin_pow", FFECOM_rttypeDOUBLE_, "dd", FALSE, FALSE, TRUE)
DEFGFRT (FFECOM_gfrtL_SIN, "__builtin_sin", FFECOM_rttypeDOUBLE_, "d", FALSE, FALSE, TRUE) DEFGFRT (FFECOM_gfrtL_SIN, "__builtin_sin", FFECOM_rttypeDOUBLE_, "d", FALSE, FALSE, TRUE)
DEFGFRT (FFECOM_gfrtL_SINH, "sinh", FFECOM_rttypeDOUBLE_, "d", FALSE, FALSE, TRUE) DEFGFRT (FFECOM_gfrtL_SINH, "sinh", FFECOM_rttypeDOUBLE_, "d", FALSE, FALSE, TRUE)
DEFGFRT (FFECOM_gfrtL_SQRT, "__builtin_sqrt", FFECOM_rttypeDOUBLE_, "d", FALSE, FALSE, TRUE) DEFGFRT (FFECOM_gfrtL_SQRT, "__builtin_sqrt", FFECOM_rttypeDOUBLE_, "d", FALSE, FALSE, TRUE)
......
gcc/f/com.c
...@@ -11187,9 +11187,9 @@ ffecom_init_0 () ...@@ -11187,9 +11187,9 @@ ffecom_init_0 ()
tree field; tree field;
ffetype type; ffetype type;
ffetype base_type; ffetype base_type;
tree double_ftype_double; tree double_ftype_double, double_ftype_double_double;
tree float_ftype_float; tree float_ftype_float, float_ftype_float_float;
tree ldouble_ftype_ldouble; tree ldouble_ftype_ldouble, ldouble_ftype_ldouble_ldouble;
tree ffecom_tree_ptr_to_fun_type_void; tree ffecom_tree_ptr_to_fun_type_void;
/* This block of code comes from the now-obsolete cktyps.c. It checks /* This block of code comes from the now-obsolete cktyps.c. It checks
...@@ -11322,18 +11322,21 @@ ffecom_init_0 () ...@@ -11322,18 +11322,21 @@ ffecom_init_0 ()
endlink = tree_cons (NULL_TREE, void_type_node, NULL_TREE); endlink = tree_cons (NULL_TREE, void_type_node, NULL_TREE);
float_ftype_float t = tree_cons (NULL_TREE, float_type_node, endlink);
= build_function_type (float_type_node, float_ftype_float = build_function_type (float_type_node, t);
tree_cons (NULL_TREE, float_type_node, endlink)); t = tree_cons (NULL_TREE, float_type_node, t);
float_ftype_float_float = build_function_type (float_type_node, t);
double_ftype_double t = tree_cons (NULL_TREE, double_type_node, endlink);
= build_function_type (double_type_node, double_ftype_double = build_function_type (double_type_node, t);
tree_cons (NULL_TREE, double_type_node, endlink)); t = tree_cons (NULL_TREE, double_type_node, t);
double_ftype_double_double = build_function_type (double_type_node, t);
ldouble_ftype_ldouble t = tree_cons (NULL_TREE, long_double_type_node, endlink);
= build_function_type (long_double_type_node, ldouble_ftype_ldouble = build_function_type (long_double_type_node, t);
tree_cons (NULL_TREE, long_double_type_node, t = tree_cons (NULL_TREE, long_double_type_node, t);
endlink)); ldouble_ftype_ldouble_ldouble = build_function_type (long_double_type_node,
t);
for (i = 0; ((size_t) i) < ARRAY_SIZE (ffecom_tree_type); ++i) for (i = 0; ((size_t) i) < ARRAY_SIZE (ffecom_tree_type); ++i)
for (j = 0; ((size_t) j) < ARRAY_SIZE (ffecom_tree_type[0]); ++j) for (j = 0; ((size_t) j) < ARRAY_SIZE (ffecom_tree_type[0]); ++j)
...@@ -11750,18 +11753,13 @@ ffecom_init_0 () ...@@ -11750,18 +11753,13 @@ ffecom_init_0 ()
ffecom_tree_blockdata_type ffecom_tree_blockdata_type
= build_function_type (void_type_node, NULL_TREE); = build_function_type (void_type_node, NULL_TREE);
builtin_function ("__builtin_sqrtf", float_ftype_float, builtin_function ("__builtin_atan2f", float_ftype_float_float,
BUILT_IN_SQRTF, BUILT_IN_NORMAL, "sqrtf", NULL_TREE); BUILT_IN_ATAN2F, BUILT_IN_NORMAL, "atan2f", NULL_TREE);
builtin_function ("__builtin_sqrt", double_ftype_double, builtin_function ("__builtin_atan2", double_ftype_double_double,
BUILT_IN_SQRT, BUILT_IN_NORMAL, "sqrt", NULL_TREE); BUILT_IN_ATAN2, BUILT_IN_NORMAL, "atan2", NULL_TREE);
builtin_function ("__builtin_sqrtl", ldouble_ftype_ldouble, builtin_function ("__builtin_atan2l", ldouble_ftype_ldouble_ldouble,
BUILT_IN_SQRTL, BUILT_IN_NORMAL, "sqrtl", NULL_TREE); BUILT_IN_ATAN2L, BUILT_IN_NORMAL, "atan2l", NULL_TREE);
builtin_function ("__builtin_sinf", float_ftype_float,
BUILT_IN_SINF, BUILT_IN_NORMAL, "sinf", NULL_TREE);
builtin_function ("__builtin_sin", double_ftype_double,
BUILT_IN_SIN, BUILT_IN_NORMAL, "sin", NULL_TREE);
builtin_function ("__builtin_sinl", ldouble_ftype_ldouble,
BUILT_IN_SINL, BUILT_IN_NORMAL, "sinl", NULL_TREE);
builtin_function ("__builtin_cosf", float_ftype_float, builtin_function ("__builtin_cosf", float_ftype_float,
BUILT_IN_COSF, BUILT_IN_NORMAL, "cosf", NULL_TREE); BUILT_IN_COSF, BUILT_IN_NORMAL, "cosf", NULL_TREE);
builtin_function ("__builtin_cos", double_ftype_double, builtin_function ("__builtin_cos", double_ftype_double,
...@@ -11769,6 +11767,55 @@ ffecom_init_0 () ...@@ -11769,6 +11767,55 @@ ffecom_init_0 ()
builtin_function ("__builtin_cosl", ldouble_ftype_ldouble, builtin_function ("__builtin_cosl", ldouble_ftype_ldouble,
BUILT_IN_COSL, BUILT_IN_NORMAL, "cosl", NULL_TREE); BUILT_IN_COSL, BUILT_IN_NORMAL, "cosl", NULL_TREE);
builtin_function ("__builtin_expf", float_ftype_float,
BUILT_IN_EXPF, BUILT_IN_NORMAL, "expf", NULL_TREE);
builtin_function ("__builtin_exp", double_ftype_double,
BUILT_IN_EXP, BUILT_IN_NORMAL, "exp", NULL_TREE);
builtin_function ("__builtin_expl", ldouble_ftype_ldouble,
BUILT_IN_EXPL, BUILT_IN_NORMAL, "expl", NULL_TREE);
builtin_function ("__builtin_floorf", float_ftype_float,
BUILT_IN_FLOORF, BUILT_IN_NORMAL, "floorf", NULL_TREE);
builtin_function ("__builtin_floor", double_ftype_double,
BUILT_IN_FLOOR, BUILT_IN_NORMAL, "floor", NULL_TREE);
builtin_function ("__builtin_floorl", ldouble_ftype_ldouble,
BUILT_IN_FLOORL, BUILT_IN_NORMAL, "floorl", NULL_TREE);
builtin_function ("__builtin_fmodf", float_ftype_float_float,
BUILT_IN_FMODF, BUILT_IN_NORMAL, "fmodf", NULL_TREE);
builtin_function ("__builtin_fmod", double_ftype_double_double,
BUILT_IN_FMOD, BUILT_IN_NORMAL, "fmod", NULL_TREE);
builtin_function ("__builtin_fmodl", ldouble_ftype_ldouble_ldouble,
BUILT_IN_FMODL, BUILT_IN_NORMAL, "fmodl", NULL_TREE);
builtin_function ("__builtin_logf", float_ftype_float,
BUILT_IN_LOGF, BUILT_IN_NORMAL, "logf", NULL_TREE);
builtin_function ("__builtin_log", double_ftype_double,
BUILT_IN_LOG, BUILT_IN_NORMAL, "log", NULL_TREE);
builtin_function ("__builtin_logl", ldouble_ftype_ldouble,
BUILT_IN_LOGL, BUILT_IN_NORMAL, "logl", NULL_TREE);
builtin_function ("__builtin_powf", float_ftype_float_float,
BUILT_IN_POWF, BUILT_IN_NORMAL, "powf", NULL_TREE);
builtin_function ("__builtin_pow", double_ftype_double_double,
BUILT_IN_POW, BUILT_IN_NORMAL, "pow", NULL_TREE);
builtin_function ("__builtin_powl", ldouble_ftype_ldouble_ldouble,
BUILT_IN_POWL, BUILT_IN_NORMAL, "powl", NULL_TREE);
builtin_function ("__builtin_sinf", float_ftype_float,
BUILT_IN_SINF, BUILT_IN_NORMAL, "sinf", NULL_TREE);
builtin_function ("__builtin_sin", double_ftype_double,
BUILT_IN_SIN, BUILT_IN_NORMAL, "sin", NULL_TREE);
builtin_function ("__builtin_sinl", ldouble_ftype_ldouble,
BUILT_IN_SINL, BUILT_IN_NORMAL, "sinl", NULL_TREE);
builtin_function ("__builtin_sqrtf", float_ftype_float,
BUILT_IN_SQRTF, BUILT_IN_NORMAL, "sqrtf", NULL_TREE);
builtin_function ("__builtin_sqrt", double_ftype_double,
BUILT_IN_SQRT, BUILT_IN_NORMAL, "sqrt", NULL_TREE);
builtin_function ("__builtin_sqrtl", ldouble_ftype_ldouble,
BUILT_IN_SQRTL, BUILT_IN_NORMAL, "sqrtl", NULL_TREE);
pedantic_lvalues = FALSE; pedantic_lvalues = FALSE;
ffecom_f2c_make_type_ (&ffecom_f2c_integer_type_node, ffecom_f2c_make_type_ (&ffecom_f2c_integer_type_node,
...@@ -13343,6 +13390,9 @@ duplicate_decls (tree newdecl, tree olddecl) ...@@ -13343,6 +13390,9 @@ duplicate_decls (tree newdecl, tree olddecl)
if (DECL_SECTION_NAME (newdecl) == NULL_TREE) if (DECL_SECTION_NAME (newdecl) == NULL_TREE)
DECL_SECTION_NAME (newdecl) = DECL_SECTION_NAME (olddecl); DECL_SECTION_NAME (newdecl) = DECL_SECTION_NAME (olddecl);
/* Copy the assembler name. */
COPY_DECL_ASSEMBLER_NAME (olddecl, newdecl);
if (TREE_CODE (newdecl) == FUNCTION_DECL) if (TREE_CODE (newdecl) == FUNCTION_DECL)
{ {
DECL_STATIC_CONSTRUCTOR(newdecl) |= DECL_STATIC_CONSTRUCTOR(olddecl); DECL_STATIC_CONSTRUCTOR(newdecl) |= DECL_STATIC_CONSTRUCTOR(olddecl);
......
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