2007-04-20 Ed Schonberg <schonberg@adacore.com>

[pf3gnuchains/gcc-fork.git] / gcc / ada / a-tasatt.ads

diff --git a/gcc/ada/a-tasatt.ads b/gcc/ada/a-tasatt.ads
index 76174b6..a07196c 100644 (file)
--- 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;