diff options
| author | fxcoudert <fxcoudert@138bc75d-0d04-0410-961f-82ee72b054a4> | 2010-09-01 10:40:57 +0000 |
|---|---|---|
| committer | fxcoudert <fxcoudert@138bc75d-0d04-0410-961f-82ee72b054a4> | 2010-09-01 10:40:57 +0000 |
| commit | e8428f9c35b82392f2c97c0fab0946ff6289cd08 (patch) | |
| tree | 4d0ab628c10f7326616d2823ec35cff91e8606ed /gcc | |
| parent | 899fa8d2cda1013da6b41f61d3a8c61fa8260bdf (diff) | |
| download | ppe42-gcc-e8428f9c35b82392f2c97c0fab0946ff6289cd08.tar.gz ppe42-gcc-e8428f9c35b82392f2c97c0fab0946ff6289cd08.zip | |
* 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
Diffstat (limited to 'gcc')
| -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 638350b2dc6..4c627da4c96 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 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]; } } } |
