g-trasym-vms-ia64.adb, [...]: Minor reformatting.

2010-10-18  Robert Dewar  <dewar@adacore.com>

	* g-trasym-vms-ia64.adb, prj-nmsc.adb, prj.ads: Minor reformatting.

From-SVN: r165611

gcc/ada/ChangeLog

+2010-10-18  Robert Dewar  <dewar@adacore.com>
+
+	* g-trasym-vms-ia64.adb, prj-nmsc.adb, prj.ads: Minor reformatting.
+
 2010-10-14  Eric Botcazou  <ebotcazou@adacore.com>
 
 	* gcc-interface/decl.c (gnat_to_gnu_entity) <E_Array_Type>: Set

gcc/ada/g-trasym-vms-ia64.adb

@@ -64,7 +64,8 @@ package body GNAT.Traceback.Symbolic is
 
    subtype Cond_Value_Type is Unsigned_Longword;
 
-   --  TBK_API_PARAM as defined in TBKDEF.
+   --  TBK_API_PARAM as defined in TBKDEF
+
    type Tbk_Api_Param is record
       Length              : Unsigned_Word;
       T_Type              : Unsigned_Byte;
@@ -92,13 +93,14 @@ package body GNAT.Traceback.Symbolic is
    pragma Convention (C, Tbk_Api_Param);
 
    K_Version : constant Unsigned_Byte := 1;
-   --  Current API version.
+   --  Current API version
+
    K_Length : constant Unsigned_Word := 152;
-   --  Length of the parameter.
+   --  Length of the parameter
 
    pragma Compile_Time_Error (Tbk_Api_Param'Size = K_Length * 8,
                               "Bad length for tbk_api_param");
-   --  Sanity check.
+   --  Sanity check
 
    function Symbolize (Param : Address) return Cond_Value_Type;
    pragma Import (C, Symbolize, "TBK$I64_SYMBOLIZE");
@@ -263,11 +265,14 @@ package body GNAT.Traceback.Symbolic is
 
          Status := Symbolize (Param'Address);
 
+         --  Check for success (marked by bit 0)
+
          if (Status rem 2) = 1 then
 
             --  Success
 
             if Line_Number = 0 then
+
                --  As GCC doesn't emit source file correlation, use record
                --  number of line number is not set
 
@@ -280,7 +285,8 @@ package body GNAT.Traceback.Symbolic is
                Pos   : Integer;
 
                Routine_Name_D : constant String :=
-                 Decode_Ada_Name (Routine_Name.Buf
+                                  Decode_Ada_Name
+                                    (Routine_Name.Buf
                                       (1 .. Natural (Routine_Name.Curlen)));
 
                Lineno : constant String :=
@@ -300,8 +306,8 @@ package body GNAT.Traceback.Symbolic is
                       First + 30 + Routine_Name_D'Length - 1) :=
                  Routine_Name_D;
 
-               --  If routine name doesn't fit 20 characters, output
-               --  the line number on next line at 50th position
+               --  If routine name doesn't fit 20 characters, output the line
+               --  number on next line at 50th position.
 
                if Routine_Name_D'Length > 20 then
                   Pos := First + 30 + Routine_Name_D'Length;
@@ -318,6 +324,9 @@ package body GNAT.Traceback.Symbolic is
                Res (Last) := ASCII.LF;
                Len := Last;
             end;
+
+         --  Even status values
+
          else
             Res (Len + 1 .. Len + 6) := "ERROR" & ASCII.LF;
             Len := Len + 6;

gcc/ada/prj-nmsc.adb

@@ -3038,7 +3038,8 @@ package body Prj.Nmsc is
                     In_Tree   => Data.Tree);
          end case;
 
-         Exception_List := Value_Of
+         Exception_List :=
+           Value_Of
              (Index    => Lang,
               In_Array => Exceptions,
               In_Tree  => Data.Tree);
@@ -3049,9 +3050,9 @@ package body Prj.Nmsc is
                Element   := Data.Tree.String_Elements.Table (Element_Id);
                File_Name := Canonical_Case_File_Name (Element.Value);
 
-               Source := Source_Files_Htable.Get
+               Source :=
+                 Source_Files_Htable.Get
                    (Data.Tree.Source_Files_HT, File_Name);
-
                while Source /= No_Source
                  and then Source.Project /= Project
                loop

gcc/ada/prj.ads

@@ -1432,13 +1432,17 @@ package Prj is
       Imported_First : Boolean := False);
    --  Call Action for each project imported directly or indirectly by project
    --  By, as well as extended projects.
+   --
    --  The order of processing depends on Imported_First:
+   --
    --    If False, Action is called according to the order of importation: if A
    --    imports B, directly or indirectly, Action will be called for A before
    --    it is called for B. If two projects import each other directly or
    --    indirectly (using at least one "limited with"), it is not specified
    --    for which of these two projects Action will be called first.
-   --  The order is reversed if Imported_First is True.
+   --
+   --    The order is reversed if Imported_First is True
+   --
    --  With_State may be used by Action to choose a behavior or to report some
    --  global result.