[multiple changes]

2012-03-09  Robert Dewar  <dewar@adacore.com>

	* a-direct.adb, comperr.adb, freeze.adb: Minor reformatting.

2012-03-09  Arnaud Charlet  <charlet@adacore.com>

	* s-taskin.adb (Initialize_ATCB): Set Task_Image_Len to
	0 so that we never access this field uninitialized (e.g. in
	Task_Primitives.Operations.Enter_Task for the environment task).

2012-03-09  Vincent Pucci  <pucci@adacore.com>

	* exp_ch5.adb (Expand_Iterator_Loop):
	Call to Expand_Iterator_Loop_Over_Array added.
	(Expand_Iterator_Loop_Over_Array): New routine. Expansion of
	"of" iterator loop over arrays. Multidimensional array case added.

2012-03-09  Eric Botcazou  <ebotcazou@adacore.com>

	* uintp.ads: Fix minor pasto in comment.

From-SVN: r185143

gcc/ada/ChangeLog

+2012-03-09  Robert Dewar  <dewar@adacore.com>
+
+	* a-direct.adb, comperr.adb, freeze.adb: Minor reformatting.
+
+2012-03-09  Arnaud Charlet  <charlet@adacore.com>
+
+	* s-taskin.adb (Initialize_ATCB): Set Task_Image_Len to
+	0 so that we never access this field uninitialized (e.g. in
+	Task_Primitives.Operations.Enter_Task for the environment task).
+
+2012-03-09  Vincent Pucci  <pucci@adacore.com>
+
+	* exp_ch5.adb (Expand_Iterator_Loop):
+	Call to Expand_Iterator_Loop_Over_Array added.
+	(Expand_Iterator_Loop_Over_Array): New routine. Expansion of
+	"of" iterator loop over arrays. Multidimensional array case added.
+
+2012-03-09  Eric Botcazou  <ebotcazou@adacore.com>
+
+	* uintp.ads: Fix minor pasto in comment.
+
 2012-03-09  Vasiliy Fofanov  <fofanov@adacore.com>
 
 	* a-direct.adb: Do not strip the trailing directory separator

gcc/ada/a-direct.adb

@@ -514,10 +514,10 @@ package body Ada.Directories is
    begin
       Local_Get_Current_Dir (Buffer'Address, Path_Len'Address);
 
-      --  We need to resolve links because of A.16(47), since we must not
-      --  return alternative names for files
-      return Normalize_Pathname (Buffer (1 .. Path_Len));
+      --  We need to resolve links because of RM A.16(47), which requires
+      --  that we not return alternative names for files.
 
+      return Normalize_Pathname (Buffer (1 .. Path_Len));
    end Current_Directory;
 
    ----------------------

gcc/ada/comperr.adb

@@ -502,8 +502,9 @@ package body Comperr is
          when N_Package_Renaming_Declaration =>
             Unit_Name := Defining_Unit_Name (Main);
 
+         --  No SCIL file generated for generic package declarations
+
          when N_Generic_Package_Declaration =>
-            --  No SCIL file generated for generic package declarations
             return;
 
          --  Should never happen, but can be ignored in production

gcc/ada/freeze.adb

@@ -2136,8 +2136,7 @@ package body Freeze is
                   (Rec, Attribute_Scalar_Storage_Order);
 
          if Present (ADC)
-              and then
-            Reverse_Bit_Order (Rec) /= Reverse_Storage_Order (Rec)
+           and then Reverse_Bit_Order (Rec) /= Reverse_Storage_Order (Rec)
          then
             if Bytes_Big_Endian = not Reverse_Storage_Order (Rec) then
                Error_Msg_N
@@ -2147,7 +2146,6 @@ package body Freeze is
                Error_Msg_N
                  ("Scalar_Storage_Order Low_Order_First is inconsistent with"
                   & " Bit_Order", ADC);
-
             end if;
          end if;
 

gcc/ada/s-taskin.adb

@@ -6,7 +6,7 @@
 --                                                                          --
 --                                  B o d y                                 --
 --                                                                          --
---          Copyright (C) 1992-2011, Free Software Foundation, Inc.         --
+--          Copyright (C) 1992-2012, Free Software Foundation, Inc.         --
 --                                                                          --
 -- GNARL 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- --
@@ -137,6 +137,7 @@ package body System.Tasking is
       T.Common.Fall_Back_Handler        := null;
       T.Common.Specific_Handler         := null;
       T.Common.Debug_Events             := (others => False);
+      T.Common.Task_Image_Len           := 0;
 
       if T.Common.Parent = null then
 

gcc/ada/uintp.ads

@@ -6,7 +6,7 @@
 --                                                                          --
 --                                 S p e c                                  --
 --                                                                          --
---          Copyright (C) 1992-2010, Free Software Foundation, Inc.         --
+--          Copyright (C) 1992-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- --
@@ -32,7 +32,7 @@
 --  Support for universal integer arithmetic
 
 --  WARNING: There is a C version of this package. Any changes to this
---  source file must be properly reflected in the C header file sinfo.h
+--  source file must be properly reflected in the C header file uintp.h
 
 with Alloc;
 with Table;