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 bbc29ef3cd1..68a5a74c0df 100644 --- a/gcc/ada/lib-writ.adb +++ b/gcc/ada/lib-writ.adb @@ -667,7 +667,7 @@ package body Lib.Writ is -- Loop to build the with table. A with on the main unit itself -- is ignored (AARM 10.2(14a)). Such a with-clause can occur if -- the main unit is a subprogram with no spec, and a subunit of - -- it unecessarily withs the parent. + -- it unnecessarily withs the parent. for J in Units.First + 1 .. Last_Unit loop @@ -904,7 +904,7 @@ package body Lib.Writ is end if; end Output_Main_Program_Line; - -- Write command argmument ('A') lines + -- Write command argument ('A') lines for A in 1 .. Compilation_Switches.Last loop Write_Info_Initiate ('A'); |