diff options
| author | bosch <bosch@138bc75d-0d04-0410-961f-82ee72b054a4> | 2001-10-26 00:47:09 +0000 |
|---|---|---|
| committer | bosch <bosch@138bc75d-0d04-0410-961f-82ee72b054a4> | 2001-10-26 00:47:09 +0000 |
| commit | 02c6d5991a8be18be6e142889af78d92586c60b7 (patch) | |
| tree | 462c2d3c04ef8d1af6b4bfa9dae21d294b940467 /gcc/ada/sem_res.adb | |
| parent | ba8e3813e51a554dc56169ba8316152b02cecb76 (diff) | |
| download | gcc-02c6d5991a8be18be6e142889af78d92586c60b7.tar.gz | |
* 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.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@46510 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ada/sem_res.adb')
| -rw-r--r-- | gcc/ada/sem_res.adb | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/gcc/ada/sem_res.adb b/gcc/ada/sem_res.adb index ef4ca9e346c..bf1a7152ac1 100644 --- a/gcc/ada/sem_res.adb +++ b/gcc/ada/sem_res.adb @@ -3130,7 +3130,6 @@ package body Sem_Res is Index_Node : Node_Id; begin - Check_Elab_Call (N); if Component_Type (Etype (Nam)) /= Any_Type then Index_Node := @@ -3147,6 +3146,7 @@ package body Sem_Res is Set_Etype (Prefix (N), Etype (Nam)); Set_Etype (N, Typ); Resolve_Indexed_Component (N, Typ); + Check_Elab_Call (Prefix (N)); end if; return; |