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

diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog
index 48779adefbbca9c284ebd57cfdd3768feb61a476..304dd94fa943be213bf007966a87adfc6265368e 100644 (file)
--- 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 a92542fdb9a1edb98e62db79e357c2cb10d0b464..102c14daa7bff9c9ae2effbd3a24652a45d91815 100644 (file)
--- 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 f7404c5df6d80cb22d131d93b429b860a1bba2ab..cdd159a248a675f54b57f9988a387da9464665f2 100644 (file)
--- 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 d3e5e56b539104a48f0ba91aca2292c0b850ca64..6d97ed16f3a5f7c1b26d1850576273957f19dbe2 100644 (file)
--- 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 9576d52cecec90390c671221eb79584d872165e0..ab775b53f33b83a4b6118089dfd4ca69016cad3a 100644 (file)
--- 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);