diff options
Diffstat (limited to 'gcc/ada')
| -rw-r--r-- | gcc/ada/ChangeLog | 5 | ||||
| -rw-r--r-- | gcc/ada/debug.adb | 2 | ||||
| -rw-r--r-- | gcc/ada/gnatcmd.adb | 12 | ||||
| -rw-r--r-- | gcc/ada/sem_ch6.adb | 4 | ||||
| -rw-r--r-- | gcc/ada/switch-m.adb | 1 |
5 files changed, 20 insertions, 4 deletions
diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog index 48779ad..304dd94 100644 --- a/gcc/ada/ChangeLog +++ b/gcc/ada/ChangeLog @@ -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 diff --git a/gcc/ada/debug.adb b/gcc/ada/debug.adb index a92542f..102c14d 100644 --- a/gcc/ada/debug.adb +++ b/gcc/ada/debug.adb @@ -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. 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. diff --git a/gcc/ada/sem_ch6.adb b/gcc/ada/sem_ch6.adb index d3e5e56..6d97ed1 100644 --- a/gcc/ada/sem_ch6.adb +++ b/gcc/ada/sem_ch6.adb @@ -8120,8 +8120,8 @@ package body Sem_Ch6 is Null_Present (Parent (S))) or else (Present (Alias (E)) - and then - Is_Predefined_Dispatching_Operation (Alias (E))) + and then + Is_Predefined_Dispatching_Operation (Alias (E))) then if Present (Alias (E)) then Set_Overridden_Operation (S, Alias (E)); diff --git a/gcc/ada/switch-m.adb b/gcc/ada/switch-m.adb index 9576d52..ab775b5 100644 --- a/gcc/ada/switch-m.adb +++ b/gcc/ada/switch-m.adb @@ -754,6 +754,7 @@ package body Switch.M is declare Max_Proc : Nat; + begin Scan_Nat (Switch_Chars, Max, Ptr, Max_Proc, C); |