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>
|
2010-10-12 Javier Miranda <miranda@adacore.com>
|
||||||
|
|
||||||
* exp_util.adb (Side_Effect_Free): Return true for object renaming
|
* 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
|
-- 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
|
-- dn Do not delete temporary files created by gnatmake at the end
|
||||||
-- of execution, such as temporary config pragma files, mapping
|
-- of execution, such as temporary config pragma files, mapping
|
||||||
-- files or project path files.
|
-- files or project path files.
|
||||||
|
|
|
@ -320,15 +320,21 @@ procedure GNATCmd is
|
||||||
Success : Boolean;
|
Success : Boolean;
|
||||||
|
|
||||||
procedure Add_To_Response_File
|
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
|
-- 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 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
|
-- the file name is passed in the parameter list of the tool. If the
|
||||||
-- Check_File parameter is True then the procedure verifies the
|
-- Check_File parameter is True then the procedure verifies the
|
||||||
-- existence of the file before adding it to the response file.
|
-- existence of the file before adding it to the response file.
|
||||||
|
|
||||||
|
--------------------------
|
||||||
|
-- Add_To_Response_File --
|
||||||
|
--------------------------
|
||||||
|
|
||||||
procedure Add_To_Response_File
|
procedure Add_To_Response_File
|
||||||
(File_Name : String; Check_File : Boolean := True)
|
(File_Name : String;
|
||||||
|
Check_File : Boolean := True)
|
||||||
is
|
is
|
||||||
begin
|
begin
|
||||||
Name_Len := 0;
|
Name_Len := 0;
|
||||||
|
@ -355,6 +361,8 @@ procedure GNATCmd is
|
||||||
end if;
|
end if;
|
||||||
end Add_To_Response_File;
|
end Add_To_Response_File;
|
||||||
|
|
||||||
|
-- Start of processing for Check_Files
|
||||||
|
|
||||||
begin
|
begin
|
||||||
-- Check if there is at least one argument that is not a switch or if
|
-- Check if there is at least one argument that is not a switch or if
|
||||||
-- there is a -files= switch.
|
-- there is a -files= switch.
|
||||||
|
|
|
@ -754,6 +754,7 @@ package body Switch.M is
|
||||||
|
|
||||||
declare
|
declare
|
||||||
Max_Proc : Nat;
|
Max_Proc : Nat;
|
||||||
|
|
||||||
begin
|
begin
|
||||||
Scan_Nat (Switch_Chars, Max, Ptr, Max_Proc, C);
|
Scan_Nat (Switch_Chars, Max, Ptr, Max_Proc, C);
|
||||||
|
|
||||||
|
|
Loading…
Reference in New Issue