From: Francois-Xavier Coudert Date: Wed, 1 Sep 2010 10:40:57 +0000 (+0000) Subject: trans-intrinsic.c (gfc_build_intrinsic_lib_fndecls): Resize array quad_decls. X-Git-Tag: releases/gcc-4.6.0~4741 X-Git-Url: http://git.ipfire.org/?a=commitdiff_plain;h=eacbdaaac11b43b389ed33dfb8d2390d5ca02bde;p=thirdparty%2Fgcc.git 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 --- diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog index 638350b2dc6a..4c627da4c96a 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 2937734b9cff..3f188831d305 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]; } } }