[multiple changes]

2009-11-30  Robert Dewar  <dewar@adacore.com>

	* g-alleve.adb: Minor code reorganization (use conditional expressions)

2009-11-30  Thomas Quinot  <quinot@adacore.com>

	* a-tasatt.adb, s-taprop-dummy.adb (Ada.Task_Attributes.Reference):
	Remove unreachable code.
	(System.Task_Primitives.Operations.Initialize, dummy version):
	Use plain Program_Error rather than call to
	System.Error_Reporting.Shutdown.

From-SVN: r154766

gcc/ada/a-tasatt.adb

@@ -221,7 +221,6 @@
 --  general use 'Unchecked_Access instead of 'Access as the package can be
 --  instantiated from within a local context.
 
-with System.Error_Reporting;
 with System.Storage_Elements;
 with System.Task_Primitives.Operations;
 with System.Tasking;
@@ -237,8 +236,7 @@ pragma Elaborate_All (System.Tasking.Task_Attributes);
 
 package body Ada.Task_Attributes is
 
-   use System.Error_Reporting,
-       System.Tasking.Initialization,
+   use System.Tasking.Initialization,
        System.Tasking,
        System.Tasking.Task_Attributes,
        Ada.Exceptions;
@@ -424,9 +422,6 @@ package body Ada.Task_Attributes is
          end;
       end if;
 
-      pragma Assert (Shutdown ("Should never get here in Reference"));
-      return null;
-
    exception
       when Tasking_Error | Program_Error =>
          raise;

gcc/ada/s-taprop-dummy.adb

@@ -38,8 +38,6 @@ pragma Polling (Off);
 --  Turn off polling, we do not want ATC polling to take place during tasking
 --  operations. It causes infinite loops and other problems.
 
-with System.Error_Reporting;
-
 package body System.Task_Primitives.Operations is
 
    use System.Tasking;
@@ -192,9 +190,7 @@ package body System.Task_Primitives.Operations is
    procedure Initialize (Environment_Task : Task_Id) is
       No_Tasking : Boolean;
    begin
-      No_Tasking :=
-        System.Error_Reporting.Shutdown
-          ("Tasking not implemented on this configuration");
+      raise Program_Error with "Tasking not implemented on this configuration";
    end Initialize;
 
    procedure Initialize (S : in out Suspension_Object) is