* trans-intrinsic.c (gfc_build_intrinsic_lib_fndecls): Resize

	array quad_decls. Remove unnecessary assignment.

git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@163723 138bc75d-0d04-0410-961f-82ee72b054a4

diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog
index 638350b..4c627da 100644 (file)
--- 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 (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];
        }
     }
 }