diff options
| author | Andrew Pinski <apinski@apple.com> | 2004-08-15 19:26:32 +0000 |
|---|---|---|
| committer | Andrew Pinski <pinskia@gcc.gnu.org> | 2004-08-15 12:26:32 -0700 |
| commit | ead6d15f70bfdd702d3a7a4fbf3eaab14afcba82 (patch) | |
| tree | 6bcacd875e3ce9792611301d13f0a353cc99978a /gcc/fortran/trans-decl.c | |
| parent | 23d4fa49c6b844fc4e4ca88708a92456ca865e80 (diff) | |
| download | gcc-ead6d15f70bfdd702d3a7a4fbf3eaab14afcba82.zip gcc-ead6d15f70bfdd702d3a7a4fbf3eaab14afcba82.tar.gz gcc-ead6d15f70bfdd702d3a7a4fbf3eaab14afcba82.tar.bz2 | |
re PR fortran/17030 (gfortran does not optimize ABS of complex that well)
2004-08-15 Andrew Pinski <apinski@apple.com>
PR fortran/17030
* f95-lang.c (gfc_init_builtin_functions): Initialize the builtins
for cabs{,f} and copysign{,f}.
* trans-decl.c (gfor_fndecl_math_cabsf): Delete.
(gfor_fndecl_math_cabs): Delete.
(gfor_fndecl_math_sign4): Delete.
(gfor_fndecl_math_sign8): Delete.
(gfc_build_intrinsic_function_decls): Remove the
initializing of cabs{,f} and copysign{,f} functions.
* trans-intrinsic.c (gfc_conv_intrinsic_abs): Use the builtins
instead of the functions definitions.
(gfc_conv_intrinsic_sign): Likewise.
* trans.h (gfor_fndecl_math_cabsf): Delete.
(gfor_fndecl_math_cabs): Delete.
(gfor_fndecl_math_sign4): Delete.
(gfor_fndecl_math_sign8): Delete.
From-SVN: r86027
Diffstat (limited to 'gcc/fortran/trans-decl.c')
| -rw-r--r-- | gcc/fortran/trans-decl.c | 20 |
1 files changed, 0 insertions, 20 deletions
diff --git a/gcc/fortran/trans-decl.c b/gcc/fortran/trans-decl.c index ef802ec..d9476b822 100644 --- a/gcc/fortran/trans-decl.c +++ b/gcc/fortran/trans-decl.c @@ -96,10 +96,6 @@ tree gfor_fndecl_associated; gfc_powdecl_list gfor_fndecl_math_powi[3][2]; tree gfor_fndecl_math_cpowf; tree gfor_fndecl_math_cpow; -tree gfor_fndecl_math_cabsf; -tree gfor_fndecl_math_cabs; -tree gfor_fndecl_math_sign4; -tree gfor_fndecl_math_sign8; tree gfor_fndecl_math_ishftc4; tree gfor_fndecl_math_ishftc8; tree gfor_fndecl_math_exponent4; @@ -1460,22 +1456,6 @@ gfc_build_intrinsic_function_decls (void) gfc_build_library_function_decl (get_identifier ("cpow"), gfc_complex8_type_node, 1, gfc_complex8_type_node); - gfor_fndecl_math_cabsf = - gfc_build_library_function_decl (get_identifier ("cabsf"), - gfc_real4_type_node, - 1, gfc_complex4_type_node); - gfor_fndecl_math_cabs = - gfc_build_library_function_decl (get_identifier ("cabs"), - gfc_real8_type_node, - 1, gfc_complex8_type_node); - gfor_fndecl_math_sign4 = - gfc_build_library_function_decl (get_identifier ("copysignf"), - gfc_real4_type_node, - 1, gfc_real4_type_node); - gfor_fndecl_math_sign8 = - gfc_build_library_function_decl (get_identifier ("copysign"), - gfc_real8_type_node, - 1, gfc_real8_type_node); gfor_fndecl_math_ishftc4 = gfc_build_library_function_decl (get_identifier (PREFIX("ishftc4")), gfc_int4_type_node, |