[multiple changes]

2009-11-30  Vasiliy Fofanov  <fofanov@adacore.com>

	* vms_data.ads: Add new VMS qualifiers,
	REVERSE_BIT_ORDER/NOREVERSE_BIT_ORDER, to support warnings on bit order
	effects.

2009-11-30  Thomas Quinot  <quinot@adacore.com>

	* exp_ch9.adb, exp_ch9.ads, sem_util.ads: Minor reformatting.

2009-11-30  Gary Dismukes  <dismukes@adacore.com>

	* sem_prag.adb: Fix spelling error.

From-SVN: r154829

1 files changed, 34 insertions, 34 deletions

diff --git a/gcc/ada/exp_ch9.ads b/gcc/ada/exp_ch9.ads
index 1bb810690e5..22a27d6422e 100644
--- a/gcc/ada/exp_ch9.ads
+++ b/gcc/ada/exp_ch9.ads
@@ -86,7 +86,7 @@ package Exp_Ch9 is
    --  body must be expanded separately to create a subprogram declaration
    --  for it, in order to resolve internal calls to it from other protected
    --  operations. It would seem that no locking version of the operation is
-   --  needed, but in fact, in Ada2005 the subprogram may be used in a call-
+   --  needed, but in fact, in Ada 2005 the subprogram may be used in a call-
    --  back, and therefore a protected version of the operation must be
    --  generated as well.
 
@@ -105,28 +105,28 @@ package Exp_Ch9 is
       Name     : Node_Id;
       Rec      : Node_Id;
       External : Boolean := True);
-   --  The node N is a subprogram or entry call to a protected subprogram.
-   --  This procedure rewrites this call with the appropriate expansion.
-   --  Name is the subprogram, and Rec is the record corresponding to the
-   --  protected object. External is False if the call is to another
-   --  protected subprogram within the same object.
+   --  The node N is a subprogram or entry call to a protected subprogram. This
+   --  procedure rewrites this call with the appropriate expansion. Name is the
+   --  subprogram, and Rec is the record corresponding to the protected object.
+   --  External is False if the call is to another protected subprogram within
+   --  the same object.
 
    procedure Build_Task_Activation_Call (N : Node_Id);
-   --  This procedure is called for constructs that can be task activators
-   --  i.e. task bodies, subprogram bodies, package bodies and blocks. If
-   --  the construct is a task activator (as indicated by the non-empty
-   --  setting of Activation_Chain_Entity, either in the construct, or, in
-   --  the case of a package body, in its associated package spec), then
-   --  a call to Activate_Tasks with this entity as the single parameter
-   --  is inserted at the start of the statements of the activator.
+   --  This procedure is called for constructs that can be task activators,
+   --  i.e. task bodies, subprogram bodies, package bodies and blocks. If the
+   --  construct is a task activator (as indicated by the non-empty setting of
+   --  Activation_Chain_Entity, either in the construct, or, in the case of a
+   --  package body, in its associated package spec), then a call to
+   --  Activate_Tasks with this entity as the single parameter is inserted at
+   --  the start of the statements of the activator.
 
    procedure Build_Task_Allocate_Block
      (Actions : List_Id;
       N       : Node_Id;
       Args    : List_Id);
-   --  This routine is used in the case of allocators where the designated
-   --  type is a task or contains tasks. In this case, the normal initialize
-   --  call is replaced by:
+   --  This routine is used in the case of allocators where the designated type
+   --  is a task or contains tasks. In this case, the normal initialize call
+   --  is replaced by:
    --
    --    blockname : label;
    --    blockname : declare
@@ -146,10 +146,10 @@ package Exp_Ch9 is
    --
    --  to get the task or tasks created and initialized. The expunge call
    --  ensures that any tasks that get created but not activated due to an
-   --  exception are properly expunged (it has no effect in the normal case)
-   --  The argument N is the allocator, and Args is the list of arguments
-   --  for the initialization call, constructed by the caller, which uses
-   --  the Master_Id of the access type as the _Master parameter, and _Chain
+   --  exception are properly expunged (it has no effect in the normal case).
+   --  The argument N is the allocator, and Args is the list of arguments for
+   --  the initialization call, constructed by the caller, which uses the
+   --  Master_Id of the access type as the _Master parameter, and _Chain
    --  (defined above) as the _Chain parameter.
 
    procedure Build_Task_Allocate_Block_With_Init_Stmts
@@ -199,28 +199,28 @@ package Exp_Ch9 is
       Index : Node_Id;
       Ttyp  : Entity_Id)
       return  Node_Id;
-   --  Returns an expression to compute a task entry index given the name
-   --  of the entry or entry family. For the case of a task entry family,
-   --  the Index parameter contains the expression for the subscript.
-   --  Ttyp is the task type.
+   --  Returns an expression to compute a task entry index given the name of
+   --  the entry or entry family. For the case of a task entry family, the
+   --  Index parameter contains the expression for the subscript. Ttyp is the
+   --  task type.
 
    procedure Establish_Task_Master (N : Node_Id);
    --  Given a subprogram body, or a block statement, or a task body, this
-   --  procedure makes the necessary transformations required of a task
-   --  master (add Enter_Master call at start, and establish a cleanup
-   --  routine to make sure Complete_Master is called on exit).
+   --  procedure makes the necessary transformations required of a task master
+   --  (add Enter_Master call at start, and establish a cleanup routine to make
+   --  sure Complete_Master is called on exit).
 
    procedure Expand_Access_Protected_Subprogram_Type (N : Node_Id);
    --  Build Equivalent_Type for an Access_To_Protected_Subprogram.
-   --  Equivalent_Type is a record type with two components: a pointer
-   --  to the protected object, and a pointer to the operation itself.
+   --  Equivalent_Type is a record type with two components: a pointer to the
+   --  protected object, and a pointer to the operation itself.
 
    procedure Expand_Accept_Declarations (N : Node_Id; Ent : Entity_Id);
-   --  Expand declarations required for accept statement. See bodies of
-   --  both Expand_Accept_Declarations and Expand_N_Accept_Statement for
-   --  full details of the nature and use of these declarations, which
-   --  are inserted immediately before the accept node N. The second
-   --  argument is the entity for the corresponding entry.
+   --  Expand declarations required for accept statement. See bodies of both
+   --  Expand_Accept_Declarations and Expand_N_Accept_Statement for full
+   --  details of the nature and use of these declarations, which are inserted
+   --  immediately before the accept node N. The second argument is the entity
+   --  for the corresponding entry.
 
    procedure Expand_Entry_Barrier (N : Node_Id; Ent : Entity_Id);
    --  Expand the entry barrier into a function. This is called directly