diff options
author | hainque <hainque@138bc75d-0d04-0410-961f-82ee72b054a4> | 2008-09-22 10:29:29 +0000 |
---|---|---|
committer | hainque <hainque@138bc75d-0d04-0410-961f-82ee72b054a4> | 2008-09-22 10:29:29 +0000 |
commit | ee82d8917540444b7178799f3c1dde6238c75722 (patch) | |
tree | 5e64426e997f556d62e9350e72dd76e3c4b421ad /gcc/ada/gcc-interface/decl.c | |
parent | bdc89b8f287e686e1464e3fb29d1c7d635f57ffc (diff) | |
download | ppe42-gcc-ee82d8917540444b7178799f3c1dde6238c75722.tar.gz ppe42-gcc-ee82d8917540444b7178799f3c1dde6238c75722.zip |
* gcc-interface/decl.c (gnat_to_gnu_entity): Even when they
are never assigned, volatile entities are not constant for code
generation purposes.
* gnat.dg/volatile3.adb: New test.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@140545 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ada/gcc-interface/decl.c')
-rw-r--r-- | gcc/ada/gcc-interface/decl.c | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/gcc/ada/gcc-interface/decl.c b/gcc/ada/gcc-interface/decl.c index a8fa1badac3..d343b144996 100644 --- a/gcc/ada/gcc-interface/decl.c +++ b/gcc/ada/gcc-interface/decl.c @@ -548,6 +548,7 @@ gnat_to_gnu_entity (Entity_Id gnat_entity, tree gnu_expr, int definition) bool const_flag = ((kind == E_Constant || kind == E_Variable) && Is_True_Constant (gnat_entity) + && !Treat_As_Volatile (gnat_entity) && (((Nkind (Declaration_Node (gnat_entity)) == N_Object_Declaration) && Present (Expression (Declaration_Node (gnat_entity)))) |