diff options
Diffstat (limited to 'gcc/ada/gnatcmd.adb')
| -rw-r--r-- | gcc/ada/gnatcmd.adb | 12 |
1 files changed, 10 insertions, 2 deletions
diff --git a/gcc/ada/gnatcmd.adb b/gcc/ada/gnatcmd.adb index f7404c5..cdd159a 100644 --- a/gcc/ada/gnatcmd.adb +++ b/gcc/ada/gnatcmd.adb @@ -320,15 +320,21 @@ procedure GNATCmd is Success : Boolean; procedure Add_To_Response_File - (File_Name : String; Check_File : Boolean := True); + (File_Name : String; + Check_File : Boolean := True); -- Include the file name passed as parameter in the response file for -- the tool being called. If the response file can not be written then -- the file name is passed in the parameter list of the tool. If the -- Check_File parameter is True then the procedure verifies the -- existence of the file before adding it to the response file. + -------------------------- + -- Add_To_Response_File -- + -------------------------- + procedure Add_To_Response_File - (File_Name : String; Check_File : Boolean := True) + (File_Name : String; + Check_File : Boolean := True) is begin Name_Len := 0; @@ -355,6 +361,8 @@ procedure GNATCmd is end if; end Add_To_Response_File; + -- Start of processing for Check_Files + begin -- Check if there is at least one argument that is not a switch or if -- there is a -files= switch. |