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 638350b2dc6a9331c9e2505f421d283a51432efd..4c627da4c96a57d38780e13c9a9065f44ecbbf3f 100644 (file)
--- a/gcc/fortran/ChangeLog
+++ b/gcc/fortran/ChangeLog
@@ -1,3 +1,8 @@
+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

diff --git a/gcc/fortran/trans-intrinsic.c b/gcc/fortran/trans-intrinsic.c
index 2937734b9cffa2a1738819e2a0c229c2a261bfd2..3f188831d305ac32342505178a310d57efd04249 100644 (file)
--- 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];
        }
     }
 }