diff options
| author | Ed Schonberg <schonber@gnat.com> | 2001-10-26 00:47:09 +0000 |
|---|---|---|
| committer | Geert Bosch <bosch@gcc.gnu.org> | 2001-10-26 02:47:09 +0200 |
| commit | 6f311316194c0494cc43c16be10b434ca562a8df (patch) | |
| tree | 462c2d3c04ef8d1af6b4bfa9dae21d294b940467 /gcc/ada/sem_ch12.adb | |
| parent | 17be0cdf52730f68542fbca09480dcde990b92b8 (diff) | |
| download | gcc-6f311316194c0494cc43c16be10b434ca562a8df.tar.gz | |
sem_res.adb (Resolve_Call): if the call is actually an indexing operation on the result of a parameterless...
* sem_res.adb (Resolve_Call): if the call is actually an indexing
operation on the result of a parameterless call, perform elaboration
check after the node has been properly rewritten.
* sem_ch12.adb (Copy_Generic_Node): after the proper body has been
inlined within the generic tree, the defining identifier is not a
compilation_unit.
From-SVN: r46510
Diffstat (limited to 'gcc/ada/sem_ch12.adb')
| -rw-r--r-- | gcc/ada/sem_ch12.adb | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/gcc/ada/sem_ch12.adb b/gcc/ada/sem_ch12.adb index 8c868b26b35..4d372d68a75 100644 --- a/gcc/ada/sem_ch12.adb +++ b/gcc/ada/sem_ch12.adb @@ -4499,9 +4499,10 @@ package body Sem_Ch12 is Empty, Instantiating => False); -- Now place the original proper body in the original - -- generic unit. + -- generic unit. This is a body, not a compilation unit. Rewrite (N, Proper_Body (Unit (Subunit))); + Set_Is_Compilation_Unit (Defining_Entity (N), False); Set_Was_Originally_Stub (N); -- Finally replace the body of the subunit with its copy, |