diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog
index 48779adefbb..304dd94fa94 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 a92542fdb9a..102c14daa7b 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 f7404c5df6d..cdd159a248a 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 d3e5e56b539..6d97ed16f3a 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 9576d52cece..ab775b53f33 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);