diff options
| author | Andrew Pinski <pinskia@gmail.com> | 2006-11-26 00:09:05 -0800 |
|---|---|---|
| committer | Andrew Pinski <pinskia@gcc.gnu.org> | 2006-11-26 00:09:05 -0800 |
| commit | 67fdae36e917f7dcea4dbeead421218df36b7ea0 (patch) | |
| tree | 5411a2ee91a9cb833ccd46d7237cf41c05c71834 /gcc | |
| parent | fade9a8e43b096aa4462ce63a556c03429cb7398 (diff) | |
| download | gcc-67fdae36e917f7dcea4dbeead421218df36b7ea0.zip gcc-67fdae36e917f7dcea4dbeead421218df36b7ea0.tar.gz gcc-67fdae36e917f7dcea4dbeead421218df36b7ea0.tar.bz2 | |
trans-decl.c (gfc_build_intrinsic_function_decls): Mark the pow functions as constant functions.
2006-11-26 Andrew Pinski <pinskia@gmail.com>
* trans-decl.c (gfc_build_intrinsic_function_decls): Mark the
pow functions as constant functions.
From-SVN: r119219
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/fortran/ChangeLog | 5 | ||||
| -rw-r--r-- | gcc/fortran/trans-decl.c | 3 |
2 files changed, 8 insertions, 0 deletions
diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog index a6a2962..9b350ff 100644 --- a/gcc/fortran/ChangeLog +++ b/gcc/fortran/ChangeLog @@ -1,3 +1,8 @@ +2006-11-26 Andrew Pinski <pinskia@gmail.com> + + * trans-decl.c (gfc_build_intrinsic_function_decls): Mark the + pow functions as constant functions. + 2006-11-25 Andrew Pinski <pinskia@gmail.com> PR fortran/29982 diff --git a/gcc/fortran/trans-decl.c b/gcc/fortran/trans-decl.c index e44489d..1f3ab7d 100644 --- a/gcc/fortran/trans-decl.c +++ b/gcc/fortran/trans-decl.c @@ -2112,6 +2112,7 @@ gfc_build_intrinsic_function_decls (void) gfor_fndecl_math_powi[jkind][ikind].integer = gfc_build_library_function_decl (get_identifier (name), jtype, 2, jtype, itype); + TREE_READONLY (gfor_fndecl_math_powi[jkind][ikind].integer) = 1; } } @@ -2125,6 +2126,7 @@ gfc_build_intrinsic_function_decls (void) gfor_fndecl_math_powi[rkind][ikind].real = gfc_build_library_function_decl (get_identifier (name), rtype, 2, rtype, itype); + TREE_READONLY (gfor_fndecl_math_powi[rkind][ikind].real) = 1; } ctype = gfc_get_complex_type (rkinds[rkind]); @@ -2135,6 +2137,7 @@ gfc_build_intrinsic_function_decls (void) gfor_fndecl_math_powi[rkind][ikind].cmplx = gfc_build_library_function_decl (get_identifier (name), ctype, 2,ctype, itype); + TREE_READONLY (gfor_fndecl_math_powi[rkind][ikind].cmplx) = 1; } } } |