diff options
| author | Alexandre Oliva <oliva@adacore.com> | 2021-10-14 01:49:44 -0300 |
|---|---|---|
| committer | Alexandre Oliva <oliva@gnu.org> | 2021-10-14 01:49:44 -0300 |
| commit | ee9fa8a57920e6ceb49bbf0929604a34ee5cabb4 (patch) | |
| tree | ca079442604318c9a8f972251da3b2776b7bd385 | |
| parent | 2f9529fc62bcd7e5796c5c8c11879c9ba2ca133f (diff) | |
| download | gcc-ee9fa8a57920e6ceb49bbf0929604a34ee5cabb4.zip gcc-ee9fa8a57920e6ceb49bbf0929604a34ee5cabb4.tar.gz gcc-ee9fa8a57920e6ceb49bbf0929604a34ee5cabb4.tar.bz2 | |
[Ada] reenable ada83 library unit renaming error
for gcc/ada/ChangeLog
* par-ch10.adb (P_Compilation_Unit): Reenable ada83 library
unit renaming test and error.
| -rw-r--r-- | gcc/ada/par-ch10.adb | 9 |
1 files changed, 5 insertions, 4 deletions
diff --git a/gcc/ada/par-ch10.adb b/gcc/ada/par-ch10.adb index f02934a..76f0edd 100644 --- a/gcc/ada/par-ch10.adb +++ b/gcc/ada/par-ch10.adb @@ -532,13 +532,14 @@ package body Ch10 is | N_Subprogram_Body | N_Subprogram_Renaming_Declaration then - Unit_Node := Specification (Unit_Node); - - elsif Nkind (Unit_Node) = N_Subprogram_Renaming_Declaration then - if Ada_Version = Ada_83 then + if Nkind (Unit_Node) = N_Subprogram_Renaming_Declaration + and then Ada_Version = Ada_83 + then Error_Msg_N ("(Ada 83) library unit renaming not allowed", Unit_Node); end if; + + Unit_Node := Specification (Unit_Node); end if; if Nkind (Unit_Node) in N_Task_Body |