This is the mail archive of the
gcc-patches@gcc.gnu.org
mailing list for the GCC project.
Re: [gfortran,ping] support for large kinds in front-end and library
- From: Steve Kargl <sgk at troutmask dot apl dot washington dot edu>
- To: FX Coudert <fxcoudert at gmail dot com>
- Cc: patch <gcc-patches at gcc dot gnu dot org>, gfortran <fortran at gcc dot gnu dot org>
- Date: Sat, 20 Aug 2005 09:15:40 -0700
- Subject: Re: [gfortran,ping] support for large kinds in front-end and library
- References: <42F1415C.2050603@gmail.com>
Comment 2.
> +#define DEFINE_MATH_BUILTIN(ID, NAME, ARGTYPE) \
> + { GFC_ISYM_ ## ID, BUILT_IN_ ## ID ## F, BUILT_IN_ ## ID, \
> + BUILT_IN_ ## ID ## L, BUILT_IN_ ## ID ## L, 0, 0, 0, 0, true, \
> + false, true, NAME, NULL_TREE, NULL_TREE, NULL_TREE, NULL_TREE, \
> + NULL_TREE, NULL_TREE, NULL_TREE, NULL_TREE},
> +// BUILT_IN_FUNCTION (id, name, false)
Use /* ... */ for comments (here and elsewhere).
> @@ -469,10 +497,22 @@ gfc_build_intrinsic_lib_fndecls (void)
> /* Add GCC builtin functions. */
> for (m = gfc_intrinsic_map; m->id != GFC_ISYM_NONE; m++)
> {
> - if (m->code4 != END_BUILTINS)
> - m->real4_decl = built_in_decls[m->code4];
> - if (m->code8 != END_BUILTINS)
> - m->real8_decl = built_in_decls[m->code8];
> + if (m->code_r4 != END_BUILTINS)
> + m->real4_decl = built_in_decls[m->code_r4];
> + if (m->code_r8 != END_BUILTINS)
> + m->real8_decl = built_in_decls[m->code_r8];
> + if (m->code_r10 != END_BUILTINS)
> + m->real10_decl = built_in_decls[m->code_r10];
> + if (m->code_r16 != END_BUILTINS)
> + m->real16_decl = built_in_decls[m->code_r16];
> + if (m->code_c4 != END_BUILTINS)
> + m->complex4_decl = built_in_decls[m->code_c4];
> + if (m->code_c8 != END_BUILTINS)
> + m->complex8_decl = built_in_decls[m->code_c8];
> + if (m->code_c10 != END_BUILTINS)
> + m->complex10_decl = built_in_decls[m->code_c10];
> + if (m->code_c16 != END_BUILTINS)
> + m->complex16_decl = built_in_decls[m->code_c16];
> }
The above has some issues withi whitespace formatting.
--
steve