diff options
Diffstat (limited to 'gcc/ada/a-tasatt.ads')
| -rw-r--r-- | gcc/ada/a-tasatt.ads | 10 |
1 files changed, 4 insertions, 6 deletions
diff --git a/gcc/ada/a-tasatt.ads b/gcc/ada/a-tasatt.ads index 76174b6..a07196c 100644 --- a/gcc/ada/a-tasatt.ads +++ b/gcc/ada/a-tasatt.ads @@ -6,7 +6,7 @@ -- -- -- S p e c -- -- -- --- Copyright (C) 1992-1997 Free Software Foundation, Inc. -- +-- Copyright (C) 1992-2006, Free Software Foundation, Inc. -- -- -- -- This specification is derived from the Ada Reference Manual for use with -- -- GNAT. The copyright notice above, and the license provisions that follow -- @@ -39,7 +39,7 @@ with Ada.Task_Identification; generic type Attribute is private; - Initial_Value : in Attribute; + Initial_Value : Attribute; package Ada.Task_Attributes is @@ -47,13 +47,11 @@ package Ada.Task_Attributes is function Value (T : Ada.Task_Identification.Task_Id := - Ada.Task_Identification.Current_Task) - return Attribute; + Ada.Task_Identification.Current_Task) return Attribute; function Reference (T : Ada.Task_Identification.Task_Id := - Ada.Task_Identification.Current_Task) - return Attribute_Handle; + Ada.Task_Identification.Current_Task) return Attribute_Handle; procedure Set_Value (Val : Attribute; |