diff options
Diffstat (limited to 'gcc/ada/gnatls.adb')
| -rw-r--r-- | gcc/ada/gnatls.adb | 43 |
1 files changed, 3 insertions, 40 deletions
diff --git a/gcc/ada/gnatls.adb b/gcc/ada/gnatls.adb index 4e549a9..5f7e490 100644 --- a/gcc/ada/gnatls.adb +++ b/gcc/ada/gnatls.adb @@ -117,7 +117,6 @@ procedure Gnatls is Also_Predef : Boolean := False; -- -a Dependable : Boolean := False; -- -d - License : Boolean := False; -- -l Very_Verbose_Mode : Boolean := False; -- -V -- Command line flags @@ -188,9 +187,6 @@ procedure Gnatls is procedure Usage; -- Print usage message - procedure Output_License_Information; - -- Output license statement, and if not found, output reference to COPYING - function Image (Restriction : Restriction_Id) return String; -- Returns the capitalized image of Restriction @@ -881,20 +877,6 @@ procedure Gnatls is return Normalize_Pathname (Path); end Normalize; - -------------------------------- - -- Output_License_Information -- - -------------------------------- - - procedure Output_License_Information is - begin - case Build_Type is - when others => - Write_Str ("Please refer to file COPYING in your distribution" - & " for license terms."); - Write_Eol; - end case; - end Output_License_Information; - ------------------- -- Output_Object -- ------------------- @@ -1605,7 +1587,9 @@ procedure Gnatls is Name_Len := 0; if not Is_Absolute_Path (Self (First .. Last)) then - Add_Str_To_Name_Buffer (Get_Current_Dir); -- ??? System call + Add_Str_To_Name_Buffer + (GNAT.Directory_Operations.Get_Current_Dir); + Add_Char_To_Name_Buffer (Directory_Separator); end if; @@ -1792,7 +1776,6 @@ procedure Gnatls is when 'o' => Reset_Print; Print_Object := True; when 'v' => Verbose_Mode := True; when 'd' => Dependable := True; - when 'l' => License := True; when 'V' => Very_Verbose_Mode := True; when others => OK := False; @@ -1946,11 +1929,6 @@ procedure Gnatls is "depend"); Write_Eol; - -- Line for -l - - Write_Str (" -l output license information"); - Write_Eol; - -- Line for -v Write_Str (" -v verbose output, full path and unit " & @@ -2046,21 +2024,6 @@ begin Next_Arg := Next_Arg + 1; end loop Scan_Args; - -- If -l (output license information) is given, it must be the only switch - - if License then - if Arg_Count = 2 then - Output_License_Information; - - else - Set_Standard_Error; - Write_Str ("Can't use -l with another switch"); - Write_Eol; - Try_Help; - Exit_Program (E_Fatal); - end if; - end if; - -- Handle --RTS switch if RTS_Specified /= null then |