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.



git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@154766 138bc75d-0d04-0410-961f-82ee72b054a4

1 files changed, 1 insertions, 6 deletions

diff --git a/gcc/ada/a-tasatt.adb b/gcc/ada/a-tasatt.adb
index 11db89e4648..cb9fbab6e34 100644
--- a/gcc/ada/a-tasatt.adb
+++ b/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;