From: pinskia Date: Sun, 26 Nov 2006 08:09:05 +0000 (+0000) Subject: 2006-11-26 Andrew Pinski X-Git-Tag: upstream/4.9.2~51850 X-Git-Url: http://review.tizen.org/git/?a=commitdiff_plain;h=2177d98b07b733ecba28f7af9287e1a8edc8bed1;p=platform%2Fupstream%2Flinaro-gcc.git 2006-11-26 Andrew Pinski * trans-decl.c (gfc_build_intrinsic_function_decls): Mark the pow functions as constant functions. git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@119219 138bc75d-0d04-0410-961f-82ee72b054a4 --- 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 + + * trans-decl.c (gfc_build_intrinsic_function_decls): Mark the + pow functions as constant functions. + 2006-11-25 Andrew Pinski 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; } } }