From b5a4419cde676a67cd150feeef3babea43e5af8c Mon Sep 17 00:00:00 2001 From: Francois-Xavier Coudert Date: Wed, 27 Feb 2008 14:32:02 +0000 Subject: re PR fortran/33387 (Fortran front-end should translate intrinsics by calling C99 function instead of libgfortran functions) PR fortran/33387 * trans.h: Remove prototypes for gfor_fndecl_math_exponent4, gfor_fndecl_math_exponent8, gfor_fndecl_math_exponent10 and gfor_fndecl_math_exponent16. * f95-lang.c (build_builtin_fntypes): Add new function types. (gfc_init_builtin_functions): Add new builtins for nextafter, frexp, ldexp, fabs, scalbn and inf. * iresolve.c (gfc_resolve_rrspacing): Don't add hidden arguments. (gfc_resolve_scale): Don't convert type of second argument. (gfc_resolve_set_exponent): Likewise. (gfc_resolve_size): Don't add hidden arguments. * trans-decl.c: Remove gfor_fndecl_math_exponent4, gfor_fndecl_math_exponent8, gfor_fndecl_math_exponent10 and gfor_fndecl_math_exponent16. * trans-intrinsic.c (gfc_intrinsic_map): Remove intrinsics for scalbn, fraction, nearest, rrspacing, set_exponent and spacing. (gfc_conv_intrinsic_exponent): Directly call frexp. (gfc_conv_intrinsic_fraction, gfc_conv_intrinsic_nearest, gfc_conv_intrinsic_spacing, gfc_conv_intrinsic_rrspacing, gfc_conv_intrinsic_scale, gfc_conv_intrinsic_set_exponent): New functions. (gfc_conv_intrinsic_function): Use the new functions above. From-SVN: r132713 --- gcc/fortran/trans.h | 4 ---- 1 file changed, 4 deletions(-) (limited to 'gcc/fortran/trans.h') diff --git a/gcc/fortran/trans.h b/gcc/fortran/trans.h index 7247688..eac320a 100644 --- a/gcc/fortran/trans.h +++ b/gcc/fortran/trans.h @@ -529,10 +529,6 @@ extern GTY(()) gfc_powdecl_list gfor_fndecl_math_powi[4][3]; extern GTY(()) tree gfor_fndecl_math_ishftc4; extern GTY(()) tree gfor_fndecl_math_ishftc8; extern GTY(()) tree gfor_fndecl_math_ishftc16; -extern GTY(()) tree gfor_fndecl_math_exponent4; -extern GTY(()) tree gfor_fndecl_math_exponent8; -extern GTY(()) tree gfor_fndecl_math_exponent10; -extern GTY(()) tree gfor_fndecl_math_exponent16; /* BLAS functions. */ extern GTY(()) tree gfor_fndecl_sgemm; -- cgit v1.1