diff options
| author | Arnaud Charlet <charlet@gcc.gnu.org> | 2016-10-13 14:54:42 +0200 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2016-10-13 14:54:42 +0200 |
| commit | 5dc203d228f3bafc063278e4b6ef7954300b3908 (patch) | |
| tree | fa92f8d930db55b708a519f95013bf6c71ed1f8c /gcc/ada/sem_ch12.adb | |
| parent | 3396fcc095e2ee8f247af414aeb448c15bf88f28 (diff) | |
| download | gcc-5dc203d228f3bafc063278e4b6ef7954300b3908.zip gcc-5dc203d228f3bafc063278e4b6ef7954300b3908.tar.gz gcc-5dc203d228f3bafc063278e4b6ef7954300b3908.tar.bz2 | |
[multiple changes]
2016-10-13 Hristian Kirtchev <kirtchev@adacore.com>
* sem_ch10.adb (Entity_Needs_Body): A generic
subprogram renaming needs a body if the renamed unit is declared
outside the current compilation unit.
2016-10-13 Hristian Kirtchev <kirtchev@adacore.com>
* sinfo.ads, sem_ch12.adb, sem.adb, expander.adb, sem_res.ads,
sem_ch4.adb, sem_ch8.adb, s-memory.adb: Minor reformatting.
2016-10-13 Vincent Celier <celier@adacore.com>
* gnatcmd.adb: Delete all temporary files when invoked as gnat
list -V -P ...
2016-10-13 Ed Falis <falis@adacore.com>
* impunit.adb: add i-vxinco.ads.
* s-interr-vxworks.adb: add hook for user interrupt connection routine.
From-SVN: r241112
Diffstat (limited to 'gcc/ada/sem_ch12.adb')
| -rw-r--r-- | gcc/ada/sem_ch12.adb | 7 |
1 files changed, 3 insertions, 4 deletions
diff --git a/gcc/ada/sem_ch12.adb b/gcc/ada/sem_ch12.adb index b0a9ff6..3d940a6 100644 --- a/gcc/ada/sem_ch12.adb +++ b/gcc/ada/sem_ch12.adb @@ -14259,7 +14259,6 @@ package body Sem_Ch12 is then Copy_Dimensions (N2, N); end if; - end Set_Global_Type; ------------------ @@ -14335,7 +14334,7 @@ package body Sem_Ch12 is if Is_Global (Entity (Original_Node (N2))) then N2 := Original_Node (N2); Set_Associated_Node (N, N2); - Set_Global_Type (N, N2); + Set_Global_Type (N, N2); -- Renaming is local, and will be resolved in instance @@ -14377,7 +14376,7 @@ package body Sem_Ch12 is if Is_Global (Entity (Parent (N2))) then Change_Selected_Component_To_Expanded_Name (Parent (N)); Set_Associated_Node (Parent (N), Parent (N2)); - Set_Global_Type (Parent (N), Parent (N2)); + Set_Global_Type (Parent (N), Parent (N2)); Save_Entity_Descendants (N); -- If this is a reference to the current generic entity, replace @@ -14436,7 +14435,7 @@ package body Sem_Ch12 is if Is_Global (Entity (Name (Parent (N2)))) then Change_Selected_Component_To_Expanded_Name (Parent (N)); Set_Associated_Node (Parent (N), Name (Parent (N2))); - Set_Global_Type (Parent (N), Name (Parent (N2))); + Set_Global_Type (Parent (N), Name (Parent (N2))); Save_Entity_Descendants (N); else |