impunit.adb: Add entry for a-izteio.

2010-09-09  Robert Dewar  <dewar@adacore.com>

	* impunit.adb: Add entry for a-izteio.
	* checks.adb: Add comment.
	* debug.adb, exp_disp.adb: Minor reformatting.
	* exp_dbug.ads: Minor reformatting throughout (pack block comments).

From-SVN: r164098

gcc/ada/ChangeLog

+2010-09-09  Robert Dewar  <dewar@adacore.com>
+
+	* impunit.adb: Add entry for a-izteio.
+	* checks.adb: Add comment.
+	* debug.adb, exp_disp.adb: Minor reformatting.
+	* exp_dbug.ads: Minor reformatting throughout (pack block comments).
+
 2010-09-09  Ed Schonberg  <schonberg@adacore.com>
 
 	* sem_eval.adb (Is_Same_Value): Two occurrences of the same

gcc/ada/checks.adb

@@ -819,6 +819,15 @@ package body Checks is
                      --  node is retained, in order to avoid the warning for
                      --  redundant conversions in Resolve_Type_Conversion.
 
+                     --  The above comment is uncomfortable. This seems like
+                     --  an awkward covert channel, since there isno general
+                     --  requirement in sinfo.ads or einfo.ads that requires
+                     --  this rewrite. Instead, the issue seems to be that in
+                     --  the old code, some node was incorrectly marked as
+                     --  coming from source when it should not have been and/or
+                     --  the warning code did not properly test the appropriate
+                     --  Comes_From_Soure flag. ???
+
                      Rewrite (N, Relocate_Node (N));
 
                      Set_Etype (N, Target_Type);

gcc/ada/debug.adb

@@ -581,7 +581,8 @@ package body Debug is
    --  d.T  Force Optimize_Alignment (Time) mode as the default
 
    --  d.W  Print out debugging information for Walk_Library_Items, including
-   --       the order in which units are walked. This is primarily for CodePeer
+   --       the order in which units are walked. This is primarily for use in
+   --       debugging CodePeer mode.
 
    --  d.X  By default, the compiler uses an elaborate rewriting framework for
    --       short-circuited forms where the right hand condition generates

gcc/ada/exp_disp.adb

@@ -6311,16 +6311,13 @@ package body Exp_Disp is
       Set_Related_Type (DT_Ptr, Typ);
 
       --  For CPP types there is no need to build the dispatch tables since
-      --  they are imported from the C++ side. If the CPP type has an IP
-      --  then we declare now the variable that will store the copy of the
-      --  C++ tag. If the CPP type is an interface, we need the variable as
-      --  well, because it becomes the pointer to the corresponding secondary
-      --  table.
+      --  they are imported from the C++ side. If the CPP type has an IP then
+      --  we declare now the variable that will store the copy of the C++ tag.
+      --  If the CPP type is an interface, we need the variable as well,
+      --  because it becomes the pointer to the corresponding secondary table.
 
       if Is_CPP_Class (Typ) then
-         if Has_CPP_Constructors (Typ)
-           or else Is_Interface (Typ)
-         then
+         if Has_CPP_Constructors (Typ) or else Is_Interface (Typ) then
             Append_To (Result,
               Make_Object_Declaration (Loc,
                 Defining_Identifier => DT_Ptr,

gcc/ada/impunit.adb

@@ -395,6 +395,7 @@ package body Impunit is
      "a-envvar",    -- Ada.Environment_Variables
      "a-exetim",    -- Ada.Execution_Time
      "a-extiti",    -- Ada.Execution_Time.Timers
+     "a-izteio",    -- Ada.Integer_Wide_Wide_TextIO;
      "a-rttiev",    -- Ada.Real_Time.Timing_Events
      "a-ngcoar",    -- Ada.Numerics.Generic_Complex_Arrays
      "a-ngrear",    -- Ada.Numerics.Generic_Real_Arrays