diff options
| author | Ed Schonberg <schonberg@adacore.com> | 2008-08-20 15:24:25 +0200 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2008-08-20 15:24:25 +0200 |
| commit | b2c4d56de258bc49da7f7349bedadd38af003a93 (patch) | |
| tree | 8d8cdbfdbecb6843ce4e23d00fee4e035331d731 | |
| parent | 89da39ee52cca8ee670f4c9c43384caa62c4e44b (diff) | |
| download | gcc-b2c4d56de258bc49da7f7349bedadd38af003a93.zip gcc-b2c4d56de258bc49da7f7349bedadd38af003a93.tar.gz gcc-b2c4d56de258bc49da7f7349bedadd38af003a93.tar.bz2 | |
sem_ch8.adb (Analyze_Subprogram_Renaming): Inherit Is_Imported flag.
2008-08-20 Ed Schonberg <schonberg@adacore.com>
* sem_ch8.adb (Analyze_Subprogram_Renaming): Inherit Is_Imported flag.
From-SVN: r139290
| -rw-r--r-- | gcc/ada/sem_ch8.adb | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/gcc/ada/sem_ch8.adb b/gcc/ada/sem_ch8.adb index d943cbc..25c21d9 100644 --- a/gcc/ada/sem_ch8.adb +++ b/gcc/ada/sem_ch8.adb @@ -1965,9 +1965,11 @@ package body Sem_Ch8 is -- Most common case: subprogram renames subprogram. No body is generated -- in this case, so we must indicate the declaration is complete as is. + -- and inherit various attributes of the renamed subprogram. if No (Rename_Spec) then Set_Has_Completion (New_S); + Set_Is_Imported (New_S, Is_Imported (Entity (Nam))); Set_Is_Pure (New_S, Is_Pure (Entity (Nam))); Set_Is_Preelaborated (New_S, Is_Preelaborated (Entity (Nam))); |