diff options
Diffstat (limited to 'gcc-4.2.1/gcc/ada/s-parint.ads')
| -rw-r--r-- | gcc-4.2.1/gcc/ada/s-parint.ads | 183 |
1 files changed, 0 insertions, 183 deletions
diff --git a/gcc-4.2.1/gcc/ada/s-parint.ads b/gcc-4.2.1/gcc/ada/s-parint.ads deleted file mode 100644 index 4eeb67109..000000000 --- a/gcc-4.2.1/gcc/ada/s-parint.ads +++ /dev/null @@ -1,183 +0,0 @@ ------------------------------------------------------------------------------- --- -- --- GNAT RUN-TIME COMPONENTS -- --- -- --- S Y S T E M . P A R T I T I O N _ I N T E R F A C E -- --- -- --- S p e c -- --- -- --- Copyright (C) 1995-2005, 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- -- --- ware Foundation; either version 2, or (at your option) any later ver- -- --- sion. GNARL is distributed in the hope that it will be useful, but WITH- -- --- OUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY -- --- or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License -- --- for more details. You should have received a copy of the GNU General -- --- Public License distributed with GNARL; see file COPYING. If not, write -- --- to the Free Software Foundation, 51 Franklin Street, Fifth Floor, -- --- Boston, MA 02110-1301, USA. -- --- -- --- As a special exception, if other files instantiate generics from this -- --- unit, or you link this unit with other files to produce an executable, -- --- this unit does not by itself cause the resulting executable to be -- --- covered by the GNU General Public License. This exception does not -- --- however invalidate any other reasons why the executable file might be -- --- covered by the GNU Public License. -- --- -- --- GNAT was originally developed by the GNAT team at New York University. -- --- Extensive contributions were provided by Ada Core Technologies Inc. -- --- -- ------------------------------------------------------------------------------- - --- This unit may be used directly from an application program by providing --- an appropriate WITH, and the interface can be expected to remain stable. - -with Ada.Exceptions; -with Ada.Streams; -with Interfaces; -with System.RPC; - -package System.Partition_Interface is - - pragma Elaborate_Body; - - type DSA_Implementation_Name is (No_DSA, GARLIC_DSA, PolyORB_DSA); - DSA_Implementation : constant DSA_Implementation_Name := No_DSA; - - -- RCI receiving stubs contain a table of descriptors for - -- all user subprograms exported by the unit. - - type Subprogram_Id is new Natural; - First_RCI_Subprogram_Id : constant := 2; - - type RCI_Subp_Info is record - Addr : System.Address; - -- Local address of the proxy object - end record; - - type RCI_Subp_Info_Access is access all RCI_Subp_Info; - type RCI_Subp_Info_Array is array (Integer range <>) of - aliased RCI_Subp_Info; - - subtype Unit_Name is String; - -- Name of Ada units - - type Main_Subprogram_Type is access procedure; - - type RACW_Stub_Type is tagged record - Origin : RPC.Partition_ID; - Receiver : Interfaces.Unsigned_64; - Addr : Interfaces.Unsigned_64; - Asynchronous : Boolean; - end record; - - type RACW_Stub_Type_Access is access RACW_Stub_Type; - -- This type is used by the expansion to implement distributed objects. - -- Do not change its definition or its layout without updating - -- exp_dist.adb. - - type RAS_Proxy_Type is tagged limited record - All_Calls_Remote : Boolean; - Receiver : System.Address; - Subp_Id : Subprogram_Id; - end record; - - type RAS_Proxy_Type_Access is access RAS_Proxy_Type; - pragma No_Strict_Aliasing (RAS_Proxy_Type_Access); - -- This type is used by the expansion to implement distributed objects. - -- Do not change its definition or its layout without updating - -- Exp_Dist.Build_Remote_Supbrogram_Proxy_Type. - - -- The Request_Access type is used for communication between the PCS - -- and the RPC receiver generated by the compiler: it contains all the - -- necessary information for the receiver to process an incoming call. - - type RST_Access is access all Ada.Streams.Root_Stream_Type'Class; - type Request_Access is record - Params : RST_Access; - -- A stream describing the called subprogram and its parameters - - Result : RST_Access; - -- A stream where the result, raised exception, or out values, - -- are marshalled. - end record; - - procedure Check - (Name : Unit_Name; - Version : String; - RCI : Boolean := True); - -- Use by the main subprogram to check that a remote receiver - -- unit has has the same version than the caller's one. - - function Same_Partition - (Left : access RACW_Stub_Type; - Right : access RACW_Stub_Type) return Boolean; - -- Determine whether Left and Right correspond to objects instantiated - -- on the same partition, for enforcement of E.4(19). - - function Get_Active_Partition_ID (Name : Unit_Name) return RPC.Partition_ID; - -- Similar in some respects to RCI_Locator.Get_Active_Partition_ID - - function Get_Active_Version (Name : Unit_Name) return String; - -- Similar in some respects to Get_Active_Partition_ID - - function Get_Local_Partition_ID return RPC.Partition_ID; - -- Return the Partition_ID of the current partition - - function Get_Passive_Partition_ID - (Name : Unit_Name) return RPC.Partition_ID; - -- Return the Partition_ID of the given shared passive partition - - function Get_Passive_Version (Name : Unit_Name) return String; - -- Return the version corresponding to a shared passive unit - - function Get_RCI_Package_Receiver - (Name : Unit_Name) return Interfaces.Unsigned_64; - -- Similar in some respects to RCI_Locator.Get_RCI_Package_Receiver - - procedure Get_Unique_Remote_Pointer - (Handler : in out RACW_Stub_Type_Access); - -- Get a unique pointer on a remote object - - procedure Raise_Program_Error_Unknown_Tag - (E : Ada.Exceptions.Exception_Occurrence); - pragma No_Return (Raise_Program_Error_Unknown_Tag); - -- Raise Program_Error with the same message as E one - - type RPC_Receiver is access procedure (R : Request_Access); - procedure Register_Receiving_Stub - (Name : Unit_Name; - Receiver : RPC_Receiver; - Version : String := ""; - Subp_Info : System.Address; - Subp_Info_Len : Integer); - -- Register the fact that the Name receiving stub is now elaborated. - -- Register the access value to the package RPC_Receiver procedure. - - procedure Get_RAS_Info - (Name : Unit_Name; - Subp_Id : Subprogram_Id; - Proxy_Address : out Interfaces.Unsigned_64); - -- Look up the address of the proxy object for the given subprogram - -- in the named unit, or Null_Address if not present on the local - -- partition. - - procedure Register_Passive_Package - (Name : Unit_Name; - Version : String := ""); - -- Register a passive package - - generic - RCI_Name : String; - package RCI_Locator is - function Get_RCI_Package_Receiver return Interfaces.Unsigned_64; - function Get_Active_Partition_ID return RPC.Partition_ID; - end RCI_Locator; - -- RCI package information caching - - procedure Run (Main : Main_Subprogram_Type := null); - -- Run the main subprogram - -end System.Partition_Interface; |