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
This commit is contained in:
parent
1f181fdea6
commit
f16e8df93c
|
@ -1,3 +1,8 @@
|
|||
2010-10-12 Robert Dewar <dewar@adacore.com>
|
||||
|
||||
* debug.adb: Add comment.
|
||||
* gnatcmd.adb, sem_ch6.adb, switch-m.adb: Minor reformatting.
|
||||
|
||||
2010-10-12 Javier Miranda <miranda@adacore.com>
|
||||
|
||||
* exp_util.adb (Side_Effect_Free): Return true for object renaming
|
||||
|
|
|
@ -698,6 +698,8 @@ package body Debug is
|
|||
|
||||
-- df Only output file names, not path names, in log
|
||||
|
||||
-- dm Needs documentation ???
|
||||
|
||||
-- dn Do not delete temporary files created by gnatmake at the end
|
||||
-- of execution, such as temporary config pragma files, mapping
|
||||
-- files or project path files.
|
||||
|
|
|
@ -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.
|
||||
|
|
|
@ -754,6 +754,7 @@ package body Switch.M is
|
|||
|
||||
declare
|
||||
Max_Proc : Nat;
|
||||
|
||||
begin
|
||||
Scan_Nat (Switch_Chars, Max, Ptr, Max_Proc, C);
|
||||
|
||||
|
|
Loading…
Reference in New Issue