* [Ada] Rewrite operator entity in derived class-wide expressions
@ 2021-10-05 8:26 Pierre-Marie de Rodat
0 siblings, 0 replies; only message in thread
From: Pierre-Marie de Rodat @ 2021-10-05 8:26 UTC (permalink / raw)
To: gcc-patches; +Cc: Piotr Trojanek
[-- Attachment #1: Type: text/plain, Size: 457 bytes --]
When building a derived class-wide pre- or postcondition we are mapping
references to inherited formals and to the inherited subprogram itself.
We now do the same for references to the inherited operator. Such
references might appear as prefixes of the Result attribute, e.g.
"="'Result.
Tested on x86_64-pc-linux-gnu, committed on trunk
gcc/ada/
* exp_util.adb (Build_Class_Wide_Expression): Replace entities
of both identifiers and operator symbols.
[-- Attachment #2: patch.diff --]
[-- Type: text/x-diff, Size: 461 bytes --]
diff --git a/gcc/ada/exp_util.adb b/gcc/ada/exp_util.adb
--- a/gcc/ada/exp_util.adb
+++ b/gcc/ada/exp_util.adb
@@ -1293,7 +1293,7 @@ package body Exp_Util is
Adjust_Inherited_Pragma_Sloc (N);
end if;
- if Nkind (N) = N_Identifier
+ if Nkind (N) in N_Identifier | N_Operator_Symbol
and then Present (Entity (N))
and then
(Is_Formal (Entity (N)) or else Is_Subprogram (Entity (N)))
^ permalink raw reply [flat|nested] only message in thread
only message in thread, other threads:[~2021-10-05 8:26 UTC | newest]
Thread overview: (only message) (download: mbox.gz / follow: Atom feed)
-- links below jump to the message on this page --
2021-10-05 8:26 [Ada] Rewrite operator entity in derived class-wide expressions 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).