2011-08-05 Arnaud Charlet <charlet@adacore.com>

	* make.adb (Linking_Phase): No longer need to set source search path
	before calling gnatlink in CodePeer mode.
	* gnatlink.adb (Gnatlink): No longer pass -gnat83/95/05/12 switch to
	gcc in CodePeer mode, since the binder generated file no longer has a
	'with Main'.
	* switch.ads, switch.adb (Is_Language_Switch): Removed.
	* switch-c.adb: Update comment.

2011-08-05  Thomas Quinot  <quinot@adacore.com>

	* exp_strm.adb, bindgen.adb, s-ficobl.ads: Minor reformatting.

2011-08-05  Nicolas Roche  <roche@adacore.com>

	* gnat_ugn.texi: Fix minor syntax error issue.

2011-08-05  Vincent Celier  <celier@adacore.com>

	* gnatcmd.adb (Get_Closure): Do not crash when it is not possible to
	delete or close the file when the call to gnatmake returns a non
	successful return code.

2011-08-05  Ed Schonberg  <schonberg@adacore.com>

	* exp_ch4.adb (Expand_N_Type_Conversion): When expanding a predicate
	check, indicate that the copy of the original node does not come from
	source, to prevent an infinite recursion of the expansion.

2011-08-05  Johannes Kanig  <kanig@adacore.com>

	* debug.adb: document switch -gnatd.G for gnat2why, which deactivates
	VC generation for subprogram bodies.

2011-08-05  Yannick Moy  <moy@adacore.com>

	* einfo.ads: Typo.
	* sem_ch3.adb (Signed_Integer_Type_Declaration): in ALFA mode, define
	the base type with the smallest allowed base type.

2011-08-05  Sergey Rybin  <rybin@adacore.com>

	* tree_gen.adb, tree_in.adb, aspects.adb: Fix tree read-write for
	aspects.

2011-08-05  Ed Schonberg  <schonberg@adacore.com>

	* sem_ch12.ads: minor comment updates.

2011-08-05  Ed Schonberg  <schonberg@adacore.com>

	* sem_ch12.adb (Analyze_Formal_Package_Declaration): in an
	instantiation and a formal package the compiler generates a package
	renaming declaration so that the generic name within the declaration
	is interpreted as a renaming of the instance. At the end of a formal
	package declaration, this renaming must become invisible.



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

1 files changed, 11 insertions, 11 deletions

diff --git a/gcc/ada/exp_strm.adb b/gcc/ada/exp_strm.adb
index 35fcb640529..985f8656c66 100644
--- a/gcc/ada/exp_strm.adb
+++ b/gcc/ada/exp_strm.adb
@@ -911,10 +911,10 @@ package body Exp_Strm is
           Selector_Name => Make_Identifier (Loc, Name_V));
 
       --  Generate Reads for the discriminants of the type. The discriminants
-      --  need to be read before the rest of the components, so that
-      --  variants are initialized correctly. The discriminants must be read
-      --  into temporary variables so an incomplete Read (interrupted by an
-      --  exception, for example) does not alter the passed object.
+      --  need to be read before the rest of the components, so that variants
+      --  are initialized correctly. The discriminants must be read into temp
+      --  variables so an incomplete Read (interrupted by an exception, for
+      --  example) does not alter the passed object.
 
       while Present (Disc) loop
          Tmp_For_Disc := Make_Defining_Identifier (Loc,
@@ -928,9 +928,9 @@ package body Exp_Strm is
 
          Append_To (Stms,
            Make_Attribute_Reference (Loc,
-             Prefix => New_Occurrence_Of (Etype (Disc), Loc),
+             Prefix         => New_Occurrence_Of (Etype (Disc), Loc),
              Attribute_Name => Name_Read,
-             Expressions => New_List (
+             Expressions    => New_List (
                Make_Identifier (Loc, Name_S),
                New_Occurrence_Of (Tmp_For_Disc, Loc))));
 
@@ -946,14 +946,14 @@ package body Exp_Strm is
                  Left_Opnd  => New_Occurrence_Of (Tmp_For_Disc, Loc),
                  Right_Opnd =>
                    Make_Selected_Component (Loc,
-                     Prefix => New_Copy_Tree (Out_Formal),
+                     Prefix        => New_Copy_Tree (Out_Formal),
                      Selector_Name => New_Occurrence_Of (Disc, Loc))),
              Reason => CE_Discriminant_Check_Failed));
          Next_Discriminant (Disc);
       end loop;
 
-      --  Generate reads for the components of the record (including
-      --  those that depend on discriminants).
+      --  Generate reads for the components of the record (including those
+      --  that depend on discriminants).
 
       Build_Record_Read_Write_Procedure (Loc, Typ, Decl, Pnam, Name_Read);
 
@@ -977,14 +977,14 @@ package body Exp_Strm is
       Constrained_Stms := Statements (Handled_Statement_Sequence (Decl));
       Append_To (Stms,
         Make_Block_Statement (Loc,
-          Declarations => Dcls,
+          Declarations               => Dcls,
           Handled_Statement_Sequence => Parent (Constrained_Stms)));
 
       Append_To (Constrained_Stms,
         Make_Implicit_If_Statement (Pnam,
           Condition =>
             Make_Attribute_Reference (Loc,
-              Prefix => New_Copy_Tree (Out_Formal),
+              Prefix         => New_Copy_Tree (Out_Formal),
               Attribute_Name => Name_Constrained),
           Then_Statements => Discriminant_Checks));