public inbox for gcc-cvs@sourceware.org
help / color / mirror / Atom feed
* [gcc/devel/autopar_devel] [Ada] The definition of constants in declare expressions is an interfering context
@ 2020-08-22 22:47 Giuliano Belinassi
  0 siblings, 0 replies; only message in thread
From: Giuliano Belinassi @ 2020-08-22 22:47 UTC (permalink / raw)
  To: gcc-cvs

https://gcc.gnu.org/g:1505811709fca6a11e6feefc1a55c07c25bc7a9b

commit 1505811709fca6a11e6feefc1a55c07c25bc7a9b
Author: Claire Dross <dross@adacore.com>
Date:   Tue Apr 21 14:15:22 2020 +0200

    [Ada] The definition of constants in declare expressions is an interfering context
    
    2020-06-18  Claire Dross  <dross@adacore.com>
    
    gcc/ada/
    
            * sem_util.adb (Is_OK_Volatile_Context): Return False on
            definitions of constants declared in declare expressions.

Diff:
---
 gcc/ada/sem_util.adb | 1 +
 1 file changed, 1 insertion(+)

diff --git a/gcc/ada/sem_util.adb b/gcc/ada/sem_util.adb
index eb9c9f68a91..52a3f947dbe 100644
--- a/gcc/ada/sem_util.adb
+++ b/gcc/ada/sem_util.adb
@@ -17298,6 +17298,7 @@ package body Sem_Util is
       elsif Nkind (Context) = N_Object_Declaration
         and then Present (Expression (Context))
         and then Expression (Context) = Obj_Ref
+        and then Nkind (Parent (Context)) /= N_Expression_With_Actions
       then
          Obj_Id := Defining_Entity (Context);


^ permalink raw reply	[flat|nested] only message in thread
only message in thread, other threads:[~2020-08-22 22:47 UTC | newest]

Thread overview: (only message) (download: mbox.gz / follow: Atom feed)
-- links below jump to the message on this page --
2020-08-22 22:47 [gcc/devel/autopar_devel] [Ada] The definition of constants in declare expressions is an interfering context Giuliano Belinassi

This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).