ali-util.adb (Initialize_Checksum): Use out-mode instead of in out.

	* ali-util.adb (Initialize_Checksum): Use out-mode instead of in out.
	Found due to GCC 3.0 warning of using uninitialized value.

	* layout.adb:
	(Get_Max_Size): Use variant record for tracking value/expression.
	 Makes logic clearer and prevents warnings for uninitialized variables.
	(Layout_Array_Type): Use variant record for tracking value/expression.
	 Makes logic clearer and prevents warnings for uninitialized variables.

From-SVN: r46652

gcc/ada/ChangeLog

+2001-10-30  Geert Bosch <bosch@gnat.com>
+
+	* ali-util.adb (Initialize_Checksum): Use out-mode instead of in out. 
+	Found due to GCC 3.0 warning of using uninitialized value.
+	
+	* layout.adb:
+	(Get_Max_Size): Use variant record for tracking value/expression.
+	 Makes logic clearer and prevents warnings for uninitialized variables.
+	(Layout_Array_Type): Use variant record for tracking value/expression.
+	 Makes logic clearer and prevents warnings for uninitialized variables.
+
 2001-10-30  Robert Dewar <dewar@gnat.com>
 
 	* lib.adb: Minor reformatting

gcc/ada/ali-util.adb

@@ -50,7 +50,7 @@ package body ALI.Util is
    --  generate code, so it is not necessary to worry about making the right
    --  sequence of calls in any error situation.
 
-   procedure Initialize_Checksum (Csum : in out Word);
+   procedure Initialize_Checksum (Csum : out Word);
    --  Sets initial value of Csum before any calls to Accumulate_Checksum
 
    -------------------------
@@ -286,7 +286,7 @@ package body ALI.Util is
    -- Initialize_Checksum --
    -------------------------
 
-   procedure Initialize_Checksum (Csum : in out Word) is
+   procedure Initialize_Checksum (Csum : out Word) is
    begin
       System.CRC32.Initialize (System.CRC32.CRC32 (Csum));
    end Initialize_Checksum;