diff options
Diffstat (limited to 'gcc/ada/lib-writ.adb')
| -rw-r--r-- | gcc/ada/lib-writ.adb | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/gcc/ada/lib-writ.adb b/gcc/ada/lib-writ.adb index c4dd7668d48..df61c3f6154 100644 --- a/gcc/ada/lib-writ.adb +++ b/gcc/ada/lib-writ.adb @@ -220,7 +220,7 @@ package body Lib.Writ is Item := First (Context_Items (Cunit)); while Present (Item) loop - -- Ada0Y (AI-50217): limited with_clauses do not create + -- Ada 2005 (AI-50217): limited with_clauses do not create -- dependencies if Nkind (Item) = N_With_Clause @@ -673,7 +673,7 @@ package body Lib.Writ is -- a body or if a body is present in Ada 83 mode. if Body_Required (Cunit) - or else (Ada_83 + or else (Ada_Version = Ada_83 and then Full_Source_Name (Body_Fname) /= No_File) then Write_Info_Name (Body_Fname); |