2008-08-20 Robert Dewar <dewar@adacore.com>

	* sem_ch13.adb:
	(Adjust_Record_For_Reverse_Bit_Order): Do not access First_Bit for
	non-existing component clause.

From-SVN: r139323

gcc/ada/ChangeLog

+2008-08-20  Robert Dewar  <dewar@adacore.com>
+
+	* sem_ch13.adb:
+	(Adjust_Record_For_Reverse_Bit_Order): Do not access First_Bit for
+	non-existing component clause.
+
+	* exp_ch5.adb: Minor reformatting
+
+	* g-comlin.adb: Minor reformatting
+
+	* make.adb: Minor reformatting
+
+	* prj-proc.adb: Minor reformatting
+
+	* stylesw.ads: Minor reformatting
+
 2008-08-20  Vincent Celier  <celier@adacore.com>
 
 	* make.adb (Gnatmake_Switch_Found): New Boolean global variable

gcc/ada/sem_ch13.adb

@@ -223,11 +223,13 @@ package body Sem_Ch13 is
       while Present (Comp) loop
          declare
             CC : constant Node_Id := Component_Clause (Comp);
-            Fbit  : constant Uint    := Static_Integer (First_Bit (CC));
 
          begin
             if Present (CC) then
+               declare
+                  Fbit : constant Uint := Static_Integer (First_Bit (CC));
 
+               begin
                   --  Case of component with size > max machine scalar
 
                   if Esize (Comp) > Max_Machine_Scalar_Size then
@@ -276,12 +278,13 @@ package body Sem_Ch13 is
                         end if;
                      end if;
 
-               --  Case where size is not greater than max machine scalar.
-               --  For now, we just count these.
+                     --  Case where size is not greater than max machine
+                     --  scalar. For now, we just count these.
 
                   else
                      Num_CC := Num_CC + 1;
                   end if;
+               end;
             end if;
          end;