Subversion Repositories openrisc

------------------------------------------------------------------------------
--                                                                          --
--                         GNAT RUN-TIME COMPONENTS                         --
--                                                                          --
--                SYSTEM.MULTIPROCESSORS.DISPATCHING_DOMAINS                --
--                                                                          --
--                                  S p e c                                 --
--                                                                          --
-- This specification is derived from the Ada Reference Manual for use with --
-- GNAT.  In accordance with the copyright of that document, you can freely --
-- copy and modify this specification,  provided that if you redistribute a --
-- modified version,  any changes that you have made are clearly indicated. --
--                                                                          --
------------------------------------------------------------------------------
 
with Ada.Real_Time;
 
with Ada.Task_Identification;
 
private with System.Tasking;
 
package System.Multiprocessors.Dispatching_Domains is
   --  pragma Preelaborate (Dispatching_Domains);
   --  ??? According to AI 167 this unit should be preelaborate, but it cannot
   --  be preelaborate because it depends on Ada.Real_Time which is not
   --  preelaborate.
 
   Dispatching_Domain_Error : exception;
 
   type Dispatching_Domain (<>) is limited private;
 
   System_Dispatching_Domain : constant Dispatching_Domain;
 
   function Create (First, Last : CPU) return Dispatching_Domain;
 
   function Get_First_CPU (Domain : Dispatching_Domain) return CPU;
 
   function Get_Last_CPU (Domain : Dispatching_Domain) return CPU;
 
   function Get_Dispatching_Domain
     (T : Ada.Task_Identification.Task_Id :=
            Ada.Task_Identification.Current_Task) return Dispatching_Domain;
 
   procedure Assign_Task
     (Domain : in out Dispatching_Domain;
      CPU    : CPU_Range := Not_A_Specific_CPU;
      T      : Ada.Task_Identification.Task_Id :=
                 Ada.Task_Identification.Current_Task);
 
   procedure Set_CPU
     (CPU : CPU_Range;
      T   : Ada.Task_Identification.Task_Id :=
              Ada.Task_Identification.Current_Task);
 
   function Get_CPU
     (T : Ada.Task_Identification.Task_Id :=
            Ada.Task_Identification.Current_Task) return CPU_Range;
 
   procedure Delay_Until_And_Set_CPU
     (Delay_Until_Time : Ada.Real_Time.Time;
      CPU              : CPU_Range);
 
private
   type Dispatching_Domain is new System.Tasking.Dispatching_Domain_Access;
 
   System_Dispatching_Domain : constant Dispatching_Domain :=
                                 Dispatching_Domain
                                   (System.Tasking.System_Domain);
end System.Multiprocessors.Dispatching_Domains;