From eacbdaaac11b43b389ed33dfb8d2390d5ca02bde Mon Sep 17 00:00:00 2001 From: Francois-Xavier Coudert Date: Wed, 1 Sep 2010 10:40:57 +0000 Subject: [PATCH] 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 --- gcc/fortran/ChangeLog | 5 +++++ gcc/fortran/trans-intrinsic.c | 5 ++--- 2 files changed, 7 insertions(+), 3 deletions(-) diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog index 638350b2dc6..4c627da4c96 100644 --- a/gcc/fortran/ChangeLog +++ b/gcc/fortran/ChangeLog @@ -1,3 +1,8 @@ +2010-09-01 Francois-Xavier Coudert + + * trans-intrinsic.c (gfc_build_intrinsic_lib_fndecls): Resize + array quad_decls. Remove unnecessary assignment. + 2010-09-01 Francois-Xavier Coudert * trans-expr.c (gfc_conv_power_op): Handle floating-point types diff --git a/gcc/fortran/trans-intrinsic.c b/gcc/fortran/trans-intrinsic.c index 2937734b9cf..3f188831d30 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]; } } } -- 2.30.2