optimize

[pf3gnuchains/gcc-fork.git] / gcc / ada / s-tpoben.ads

diff --git a/gcc/ada/s-tpoben.ads b/gcc/ada/s-tpoben.ads
index 4a9aab3..5bef440 100644 (file)
--- a/gcc/ada/s-tpoben.ads
+++ b/gcc/ada/s-tpoben.ads
@@ -6,8 +6,7 @@
 --                                                                          --
 --                                  S p e c                                 --
 --                                                                          --
---                                                                          --
---          Copyright (C) 1992-2001, Free Software Foundation, Inc.         --
+--          Copyright (C) 1992-2002, Free Software Foundation, Inc.         --
 --                                                                          --
 -- GNARL is free software; you can  redistribute it  and/or modify it under --
 -- terms of the  GNU General Public License as published  by the Free Soft- --
@@ -28,7 +27,7 @@
 -- covered by the  GNU Public License.                                      --
 --                                                                          --
 -- GNARL was developed by the GNARL team at Florida State University.       --
--- Extensive contributions were provided by Ada Core Technologies Inc.      --
+-- Extensive contributions were provided by Ada Core Technologies, Inc.     --
 --                                                                          --
 ------------------------------------------------------------------------------
 
@@ -111,7 +110,6 @@ package System.Tasking.Protected_Objects.Entries is
       Find_Body_Index   : Find_Body_Index_Access;
       Entry_Queues      : Protected_Entry_Queue_Array (1 .. Num_Entries);
    end record;
-   pragma Volatile (Protection_Entries);
 
    --  No default initial values for this type, since call records
    --  will need to be re-initialized before every use.
@@ -120,9 +118,6 @@ package System.Tasking.Protected_Objects.Entries is
    --  See comments in s-tassta.adb about the implicit call to Current_Master
    --  generated by this declaration.
 
-   function To_Protection_Entries is new Unchecked_Conversion
-     (Protection_Access, Protection_Entries_Access);
-
    function To_Address is
      new Unchecked_Conversion (Protection_Entries_Access, System.Address);
    function To_Protection is