home *** CD-ROM | disk | FTP | other *** search
/ Geek Gadgets 1 / ADE-1.bin / ade-bin / lib / gcc-lib / m68k-amigaos / 2.7.2.1 / adainclude / a-tasatt.ads < prev    next >
Encoding:
Text File  |  1995-10-17  |  2.1 KB  |  53 lines
  1. ------------------------------------------------------------------------------
  2. --                                                                          --
  3. --                         GNAT RUNTIME COMPONENTS                          --
  4. --                                                                          --
  5. --                  A D A . T A S K _ A T T R I B U T E S                   --
  6. --                                                                          --
  7. --                                 S p e c                                  --
  8. --                                                                          --
  9. --                            $Revision: 1.5 $                              --
  10. --                                                                          --
  11. -- This specification is adapted from the Ada Reference Manual for use with --
  12. -- GNAT.  In accordance with the copyright of that document, you can freely --
  13. -- copy and modify this specification,  provided that if you redistribute a --
  14. -- modified version,  any changes that you have made are clearly indicated. --
  15. --                                                                          --
  16. ------------------------------------------------------------------------------
  17.  
  18. with Ada.Task_Identification;
  19.  
  20. generic
  21.    type Attribute is private;
  22.    Initial_Value : in Attribute;
  23.  
  24. package Ada.Task_Attributes is
  25.  
  26.    type Attribute_Handle is access all Attribute;
  27.  
  28.    function Value
  29.      (T    : Ada.Task_Identification.Task_Id :=
  30.                Ada.Task_Identification.Current_Task)
  31.       return Attribute;
  32.  
  33.    function Reference
  34.      (T    : Ada.Task_Identification.Task_Id :=
  35.                Ada.Task_Identification.Current_Task)
  36.       return Attribute_Handle;
  37.  
  38.    procedure Set_Value
  39.      (Val : Attribute;
  40.       T   : Ada.Task_Identification.Task_Id :=
  41.               Ada.Task_Identification.Current_Task);
  42.  
  43.    procedure Reinitialize
  44.      (T :   Ada.Task_Identification.Task_Id :=
  45.               Ada.Task_Identification.Current_Task);
  46.  
  47. private
  48.    pragma Inline (Value);
  49.    pragma Inline (Set_Value);
  50.    pragma Inline (Reinitialize);
  51.  
  52. end Ada.Task_Attributes;
  53.