diff options
Diffstat (limited to 'gcc/ada/s-tpoben.ads')
| -rw-r--r-- | gcc/ada/s-tpoben.ads | 8 |
1 files changed, 2 insertions, 6 deletions
diff --git a/gcc/ada/s-tpoben.ads b/gcc/ada/s-tpoben.ads index cd3fd57aa04..5bef440590d 100644 --- a/gcc/ada/s-tpoben.ads +++ b/gcc/ada/s-tpoben.ads @@ -6,7 +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- -- @@ -27,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. -- -- -- ------------------------------------------------------------------------------ @@ -110,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. @@ -119,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 |