diff options
| author | Robert Dewar <dewar@adacore.com> | 2010-10-12 12:58:32 +0000 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2010-10-12 14:58:32 +0200 |
| commit | f16e8df93c40e3d88487edfba355d69fdb2400db (patch) | |
| tree | bad7745fc646daafafd69caafe9443fda4c19c78 /gcc/ada/gnatcmd.adb | |
| parent | 1f181fdea6f08eface959ea0786917ccce898c6b (diff) | |
| download | gcc-f16e8df93c40e3d88487edfba355d69fdb2400db.zip gcc-f16e8df93c40e3d88487edfba355d69fdb2400db.tar.gz gcc-f16e8df93c40e3d88487edfba355d69fdb2400db.tar.bz2 | |
debug.adb: Add comment.
2010-10-12 Robert Dewar <dewar@adacore.com>
* debug.adb: Add comment.
* gnatcmd.adb, sem_ch6.adb, switch-m.adb: Minor reformatting.
From-SVN: r165373
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. |