diff options
| author | Francois-Xavier Coudert <fxcoudert@gcc.gnu.org> | 2010-09-01 10:40:57 +0000 |
|---|---|---|
| committer | François-Xavier Coudert <fxcoudert@gcc.gnu.org> | 2010-09-01 10:40:57 +0000 |
| commit | eacbdaaac11b43b389ed33dfb8d2390d5ca02bde (patch) | |
| tree | 4d0ab628c10f7326616d2823ec35cff91e8606ed | |
| parent | a21eaf5e2bc895d814eb9be4b4b74774c9ef67fc (diff) | |
| download | gcc-eacbdaaac11b43b389ed33dfb8d2390d5ca02bde.zip gcc-eacbdaaac11b43b389ed33dfb8d2390d5ca02bde.tar.gz gcc-eacbdaaac11b43b389ed33dfb8d2390d5ca02bde.tar.bz2 | |
trans-intrinsic.c (gfc_build_intrinsic_lib_fndecls): Resize array quad_decls.
* trans-intrinsic.c (gfc_build_intrinsic_lib_fndecls): Resize
array quad_decls. Remove unnecessary assignment.
From-SVN: r163723
| -rw-r--r-- | gcc/fortran/ChangeLog | 5 | ||||
| -rw-r--r-- | gcc/fortran/trans-intrinsic.c | 5 |
2 files changed, 7 insertions, 3 deletions
diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog index 638350b..4c627da 100644 --- a/gcc/fortran/ChangeLog +++ b/gcc/fortran/ChangeLog @@ -1,5 +1,10 @@ 2010-09-01 Francois-Xavier Coudert <fxcoudert@gcc.gnu.org> + * trans-intrinsic.c (gfc_build_intrinsic_lib_fndecls): Resize + array quad_decls. Remove unnecessary assignment. + +2010-09-01 Francois-Xavier Coudert <fxcoudert@gcc.gnu.org> + * trans-expr.c (gfc_conv_power_op): Handle floating-point types other than long double. * mathbuiltins.def: Add builtins from the POW and CPOW family. diff --git a/gcc/fortran/trans-intrinsic.c b/gcc/fortran/trans-intrinsic.c index 2937734..3f18883 100644 --- a/gcc/fortran/trans-intrinsic.c +++ b/gcc/fortran/trans-intrinsic.c @@ -605,7 +605,7 @@ void gfc_build_intrinsic_lib_fndecls (void) { gfc_intrinsic_map_t *m; - tree quad_decls[(int) END_BUILTINS]; + tree quad_decls[END_BUILTINS + 1]; if (gfc_real16_is_float128) { @@ -616,7 +616,7 @@ gfc_build_intrinsic_lib_fndecls (void) tree tmp, func_0, func_1, func_2, func_cabs, func_frexp; tree func_lround, func_llround, func_scalbn, func_cpow; - memset (quad_decls, 0, sizeof(tree) * (int) END_BUILTINS); + memset (quad_decls, 0, sizeof(tree) * (END_BUILTINS + 1)); /* type (*) (void) */ func_0 = build_function_type (float128_type_node, void_list_node); @@ -702,7 +702,6 @@ gfc_build_intrinsic_lib_fndecls (void) { /* Same thing for the complex ones. */ m->complex16_decl = quad_decls[m->double_built_in]; - m->real16_decl = quad_decls[m->double_built_in]; } } } |