diff options
| author | Eric Botcazou <ebotcazou@adacore.com> | 2023-01-07 22:05:58 +0100 |
|---|---|---|
| committer | Marc Poulhiès <poulhies@adacore.com> | 2023-01-16 15:44:55 +0100 |
| commit | 39a7b603380c6f4383357a6ae1d6c516dc677f29 (patch) | |
| tree | a178a36edc550e9e6cdb4eb883920afc6843c1bd /gcc/ada/gcc-interface/utils.cc | |
| parent | b7ed6c43a80e06082baad5336be0fa943a878d40 (diff) | |
| download | gcc-39a7b603380c6f4383357a6ae1d6c516dc677f29.zip gcc-39a7b603380c6f4383357a6ae1d6c516dc677f29.tar.gz gcc-39a7b603380c6f4383357a6ae1d6c516dc677f29.tar.bz2 | |
ada: Use static references to tag in more cases for interface objects
This extends the use of static references to the interface tag in more cases
for (class-wide) interface objects, e.g. for initialization expressions that
are qualified aggregates or nondispatching calls returning a specific tagged
type implementing the interface.
gcc/ada/
* exp_util.ads (Has_Tag_Of_Type): Declare.
* exp_util.adb (Has_Tag_Of_Type): Move to package level. Recurse on
qualified expressions.
* exp_ch3.adb (Expand_N_Object_Declaration): Use a static reference
to the interface tag in more cases for class-wide interface objects.
Diffstat (limited to 'gcc/ada/gcc-interface/utils.cc')
0 files changed, 0 insertions, 0 deletions