2012-10-29 Vincent Celier <celier@adacore.com>

	* projects.texi: Clarify documentation of attribute
	Ignore_Source_Sub_Dirs.

2012-10-29  Robert Dewar  <dewar@adacore.com>

	* g-sechas.adb, g-sechas.ads, exp_ch9.adb, bindgen.adb, exp_dbug.adb,
	exp_dbug.ads: Minor reformatting.



git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@192922 138bc75d-0d04-0410-961f-82ee72b054a4

8 files changed, 59 insertions, 41 deletions

diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog
index b8304542c3b..cf29ed3021a 100644
--- a/gcc/ada/ChangeLog
+++ b/gcc/ada/ChangeLog
@@ -1,3 +1,13 @@
+2012-10-29  Vincent Celier  <celier@adacore.com>
+
+	* projects.texi: Clarify documentation of attribute
+	Ignore_Source_Sub_Dirs.
+
+2012-10-29  Robert Dewar  <dewar@adacore.com>
+
+	* g-sechas.adb, g-sechas.ads, exp_ch9.adb, bindgen.adb, exp_dbug.adb,
+	exp_dbug.ads: Minor reformatting.
+
 2012-10-29  Pascal Obry  <obry@adacore.com>
 
 	* g-sechas.adb, g-sechas.ads: (Binary_Message_Digest): New subtype.
diff --git a/gcc/ada/bindgen.adb b/gcc/ada/bindgen.adb
index 08a3e8e23fe..f29e2dad302 100644
--- a/gcc/ada/bindgen.adb
+++ b/gcc/ada/bindgen.adb
@@ -65,18 +65,18 @@ package body Bindgen is
 
    System_Restrictions_Used : Boolean := False;
    --  Flag indicating whether the unit System.Restrictions is in the closure
-   --  of the partition. This is set by Resolve_Binder_Options, and
-   --  is used to determine whether or not to initialize the restrictions
-   --  information in the body of the binder generated file (we do not want
-   --  to do this unconditionally, since it drags in the System.Restrictions
-   --  unit unconditionally, which is unpleasand, especially for ZFP etc.)
+   --  of the partition. This is set by Resolve_Binder_Options, and is used
+   --  to determine whether or not to initialize the restrictions information
+   --  in the body of the binder generated file (we do not want to do this
+   --  unconditionally, since it drags in the System.Restrictions unit
+   --  unconditionally, which is unpleasand, especially for ZFP etc.)
 
    Dispatching_Domains_Used : Boolean := False;
    --  Flag indicating whether multiprocessor dispatching domains are used in
-   --  the closure of the partition. This is set by Resolve_Binder_Options,
-   --  and is used to call the routine to disallow the creation of new
-   --  dispatching domains just before calling the main procedure from the
-   --  environment task.
+   --  the closure of the partition. This is set by Resolve_Binder_Options, and
+   --  is used to call the routine to disallow the creation of new dispatching
+   --  domains just before calling the main procedure from the environment
+   --  task.
 
    System_Tasking_Restricted_Stages_Used : Boolean := False;
    --  Flag indicating whether the unit System.Tasking.Restricted.Stages is in
@@ -2814,10 +2814,11 @@ package body Bindgen is
    ----------------------------
 
    procedure Resolve_Binder_Options is
+
       procedure Check_Package (Var : in out Boolean; Name : String);
-      --  Set Var to true iff the current identifier in Namet is Name.
-      --  Do nothing if it doesn't match. This procedure is just an helper
-      --  to avoid to explicitely deal with length.
+      --  Set Var to true iff the current identifier in Namet is Name. Do
+      --  nothing if it doesn't match. This procedure is just an helper to
+      --  avoid to explicitely deal with length.
 
       -------------------
       -- Check_Package --
@@ -2831,13 +2832,16 @@ package body Bindgen is
             Var := True;
          end if;
       end Check_Package;
+
+   --  Start of processing for Check_Package
+
    begin
       for E in Elab_Order.First .. Elab_Order.Last loop
          Get_Name_String (Units.Table (Elab_Order.Table (E)).Uname);
 
          --  This is not a perfect approach, but is the current protocol
          --  between the run-time and the binder to indicate that tasking is
-         --  used: system.os_interface should always be used by any tasking
+         --  used: System.OS_Interface should always be used by any tasking
          --  application.
 
          Check_Package (With_GNARL, "system.os_interface%s");
diff --git a/gcc/ada/exp_ch9.adb b/gcc/ada/exp_ch9.adb
index 474429eeb6c..6e370f4d871 100644
--- a/gcc/ada/exp_ch9.adb
+++ b/gcc/ada/exp_ch9.adb
@@ -13912,11 +13912,10 @@ package body Exp_Ch9 is
           Prefix => Make_Identifier (Loc, New_External_Name (Tnam, 'E')),
           Attribute_Name => Name_Unchecked_Access));
 
-      if not Restricted_Profile then
-         --  Chain parameter. This is a reference to the _Chain parameter of
-         --  the initialization procedure. There is no chain in restricted
-         --  profile.
+      --  Chain parameter. This is a reference to the Chain parameter of the
+      --  initialization procedure. There is no chain in restricted profile.
 
+      if not Restricted_Profile then
          Append_To (Args, Make_Identifier (Loc, Name_uChain));
       end if;
 
diff --git a/gcc/ada/exp_dbug.adb b/gcc/ada/exp_dbug.adb
index 582138f3c4a..b1db5859346 100644
--- a/gcc/ada/exp_dbug.adb
+++ b/gcc/ada/exp_dbug.adb
@@ -902,9 +902,9 @@ package body Exp_Dbug is
       end if;
    end Get_Variant_Encoding;
 
-   ------------------------------------------
-   --  Build_Subprogram_Instance_Renamings --
-   ------------------------------------------
+   -----------------------------------------
+   -- Build_Subprogram_Instance_Renamings --
+   -----------------------------------------
 
    procedure Build_Subprogram_Instance_Renamings
      (N       : Node_Id;
diff --git a/gcc/ada/exp_dbug.ads b/gcc/ada/exp_dbug.ads
index 41d4090639f..86099f66f75 100644
--- a/gcc/ada/exp_dbug.ads
+++ b/gcc/ada/exp_dbug.ads
@@ -1447,15 +1447,14 @@ package Exp_Dbug is
    -----------------------------------------------
 
    procedure Build_Subprogram_Instance_Renamings
-     (N      : Node_Id;
-     Wrapper : Entity_Id);
-
+     (N       : Node_Id;
+      Wrapper : Entity_Id);
    --  The debugger has difficulties in recovering the value of actuals of an
    --  elementary type, from within the body of a subprogram instantiation.
    --  This is because such actuals generate an object declaration that is
    --  placed within the wrapper package of the instance, and the entity in
    --  these declarations is encoded in a complex way that GDB does not handle
-   --  well.  These new renaming declarations appear within the body of the
+   --  well. These new renaming declarations appear within the body of the
    --  subprogram, and are redundant from a visibility point of view, but They
    --  should have no measurable performance impact, and require no special
    --  decoding in the debugger.
diff --git a/gcc/ada/g-sechas.adb b/gcc/ada/g-sechas.adb
index 87531a1ed23..4b396f112ed 100644
--- a/gcc/ada/g-sechas.adb
+++ b/gcc/ada/g-sechas.adb
@@ -6,7 +6,7 @@
 --                                                                          --
 --                                 B o d y                                  --
 --                                                                          --
---         Copyright (C) 2009-2012, Free Software Foundation, Inc.          --
+--          Copyright (C) 2009-2012, Free Software Foundation, Inc.         --
 --                                                                          --
 -- GNAT is free software;  you can  redistribute it  and/or modify it under --
 -- terms of the  GNU General Public License as published  by the Free Soft- --
@@ -212,10 +212,10 @@ package body GNAT.Secure_Hashes is
       -- Final --
       -----------
 
-      --  Once a complete message has been processed, it is padded with one
-      --  1 bit followed by enough 0 bits so that the last block is
-      --  2 * Word'Size bits short of being completed. The last 2 * Word'Size
-      --  bits are set to the message size in bits (excluding padding).
+      --  Once a complete message has been processed, it is padded with one 1
+      --  bit followed by enough 0 bits so that the last block is 2 * Word'Size
+      --  bits short of being completed. The last 2 * Word'Size bits are set to
+      --  the message size in bits (excluding padding).
 
       procedure Final
         (C          : Context;
diff --git a/gcc/ada/g-sechas.ads b/gcc/ada/g-sechas.ads
index 55f44c6de94..f3f71601de5 100644
--- a/gcc/ada/g-sechas.ads
+++ b/gcc/ada/g-sechas.ads
@@ -6,7 +6,7 @@
 --                                                                          --
 --                                 S p e c                                  --
 --                                                                          --
---         Copyright (C) 2009-2012, Free Software Foundation, Inc.          --
+--          Copyright (C) 2009-2012, Free Software Foundation, Inc.         --
 --                                                                          --
 -- GNAT is free software;  you can  redistribute it  and/or modify it under --
 -- terms of the  GNU General Public License as published  by the Free Soft- --
@@ -37,7 +37,9 @@
 --  Use GNAT.MD5 and GNAT.SHA* instead.
 
 with Ada.Streams; use Ada.Streams;
+
 with Interfaces;
+
 with System;
 
 package GNAT.Secure_Hashes is
@@ -85,15 +87,14 @@ package GNAT.Secure_Hashes is
       procedure To_Hash
         (H      : State;
          H_Bits : out Stream_Element_Array);
-      --  Convert H to stream representation with the given bit order.
-      --  If H_Bits is smaller than the internal hash state, then the state
+      --  Convert H to stream representation with the given bit order. If
+      --  H_Bits is smaller than the internal hash state, then the state
       --  is truncated.
 
    end Hash_Function_State;
 
-   --  Generic hashing framework:
-   --  The user interface for each implemented secure hash function is an
-   --  instance of this generic package.
+   --  Generic hashing framework: The user interface for each implemented
+   --  secure hash function is an instance of this generic package.
 
    generic
       Block_Words : Natural;
@@ -167,7 +168,7 @@ package GNAT.Secure_Hashes is
       function Digest      (S : String)      return Binary_Message_Digest;
       function Wide_Digest (W : Wide_String) return Binary_Message_Digest;
       function Digest
-        (A : Stream_Element_Array) return Binary_Message_Digest;
+        (A : Stream_Element_Array)           return Binary_Message_Digest;
       --  These functions are equivalent to the corresponding Update (or
       --  Wide_Update) on a default initialized Context, followed by Digest
       --  on the resulting Context.
@@ -180,8 +181,8 @@ package GNAT.Secure_Hashes is
       --  Return hash for the data accumulated with C in hexadecimal
       --  representation.
 
-      function Digest      (S : String)      return Message_Digest;
-      function Wide_Digest (W : Wide_String) return Message_Digest;
+      function Digest      (S : String)               return Message_Digest;
+      function Wide_Digest (W : Wide_String)          return Message_Digest;
       function Digest      (A : Stream_Element_Array) return Message_Digest;
       --  These functions are equivalent to the corresponding Update (or
       --  Wide_Update) on a default initialized Context, followed by Digest
diff --git a/gcc/ada/projects.texi b/gcc/ada/projects.texi
index fafb1d125de..ed42094df07 100644
--- a/gcc/ada/projects.texi
+++ b/gcc/ada/projects.texi
@@ -286,9 +286,14 @@ There are several ways of defining source directories:
   It is often desirable to remove, from the source directories, directory
   subtrees rooted at some subdirectories. An example is the subdirectories
   created by a Version Control System such as Subversion that creates directory
-  subtrees .svn/**. To do that, attribute  @b{Ignore_Source_Sub_Dirs} can be
-  used. It specifies the list of simple file names for the root of these
-  undesirable directory subtrees.
+  subtrees rooted at subdirectories ".svn". To do that, attribute
+  @b{Ignore_Source_Sub_Dirs} can be used. It specifies the list of simple
+  file names for the roots of these undesirable directory subtrees.
+
+@smallexample
+    @b{for} Source_Dirs @b{use} ("./**");
+    @b{for} Ignore_Source_Sub_Dirs @b{use} (".svn");
+@end smallexample
 
 @end itemize