public inbox for gcc-cvs@sourceware.org
help / color / mirror / Atom feed
* [gcc r13-384] [Ada] Remove redundant guard in checks for volatile actuals
@ 2022-05-13 8:07 Pierre-Marie de Rodat
0 siblings, 0 replies; only message in thread
From: Pierre-Marie de Rodat @ 2022-05-13 8:07 UTC (permalink / raw)
To: gcc-cvs
https://gcc.gnu.org/g:7427e673d818be052fd07468c9dfdad3dbfe13b3
commit r13-384-g7427e673d818be052fd07468c9dfdad3dbfe13b3
Author: Piotr Trojanek <trojanek@adacore.com>
Date: Wed Feb 16 10:15:12 2022 +0100
[Ada] Remove redundant guard in checks for volatile actuals
When flagging names of volatile objects occurring in actual parameters
we guard against identifiers without entity. This is redundant, because
earlier in the resolution of actual parameters we already guard against
actuals with Any_Type.
Code cleanup related to handling of volatile components; behaviour is
unaffected.
gcc/ada/
* sem_res.adb (Flag_Effectively_Volatile_Objects): Remove
redundant guard.
Diff:
---
gcc/ada/sem_res.adb | 3 +--
1 file changed, 1 insertion(+), 2 deletions(-)
diff --git a/gcc/ada/sem_res.adb b/gcc/ada/sem_res.adb
index f038a33eb55..4ae0835498b 100644
--- a/gcc/ada/sem_res.adb
+++ b/gcc/ada/sem_res.adb
@@ -3868,8 +3868,7 @@ package body Sem_Res is
when N_Identifier | N_Expanded_Name =>
Id := Entity (N);
- if Present (Id)
- and then Is_Object (Id)
+ if Is_Object (Id)
and then Is_Effectively_Volatile_For_Reading (Id)
and then
not Is_OK_Volatile_Context (Context => Parent (N),
^ permalink raw reply [flat|nested] only message in thread
only message in thread, other threads:[~2022-05-13 8:07 UTC | newest]
Thread overview: (only message) (download: mbox.gz / follow: Atom feed)
-- links below jump to the message on this page --
2022-05-13 8:07 [gcc r13-384] [Ada] Remove redundant guard in checks for volatile actuals Pierre-Marie de Rodat
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).