2004-10-04 Vincent Celier <celier@gnat.com>

[pf3gnuchains/gcc-fork.git] / gcc / ada / sem_dist.ads

diff --git a/gcc/ada/sem_dist.ads b/gcc/ada/sem_dist.ads
index 5c545ed..4acf872 100644 (file)
--- a/gcc/ada/sem_dist.ads
+++ b/gcc/ada/sem_dist.ads
@@ -6,8 +6,7 @@
 --                                                                          --
 --                                 S p e c                                  --
 --                                                                          --
---                                                                          --
---          Copyright (C) 1992-2000 Free Software Foundation, Inc.          --
+--          Copyright (C) 1992-2004 Free Software Foundation, Inc.          --
 --                                                                          --
 -- GNAT 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- --
@@ -21,7 +20,7 @@
 -- MA 02111-1307, USA.                                                      --
 --                                                                          --
 -- GNAT was originally developed  by the GNAT team at  New York University. --
--- It is now maintained by Ada Core Technologies Inc (http://www.gnat.com). --
+-- Extensive contributions were provided by Ada Core Technologies Inc.      --
 --                                                                          --
 ------------------------------------------------------------------------------
 
@@ -37,6 +36,13 @@ package Sem_Dist is
    --  caller stubs, expansion takes place directly in the specification and
    --  no additional compilation unit is created.
 
+   function Build_RAS_Primitive_Specification
+     (Subp_Spec          : Node_Id;
+      Remote_Object_Type : Node_Id) return Node_Id;
+   --  Build a subprogram specification for the primitive operation of the
+   --  Remote_Object_Type used to implement a remote access-to-subprogram
+   --  type whose parameter profile is given by specification Subp_Spec.
+
    function Is_All_Remote_Call (N : Node_Id) return Boolean;
    --  Check whether a function or procedure call should be expanded into
    --  a remote call, because the entity is declared in a package decl that
@@ -76,18 +82,13 @@ package Sem_Dist is
    --  the previous function.
 
    function Remote_AST_Null_Value
-     (N    : Node_Id;
-      Typ  : Entity_Id)
-      return Boolean;
+     (N   : Node_Id;
+      Typ : Entity_Id) return Boolean;
    --  If N is a null value and Typ a remote access to subprogram type,
    --  this function will check if null needs to be replaced with an
    --  aggregate and will return True in this case. Otherwise, it will
    --  return False.
 
-   function Get_Subprogram_Id (E : Entity_Id) return Int;
-   --  Given a subprogram defined in a RCI package, get its subprogram id
-   --  which will be used for remote calls.
-
    function Package_Specification_Of_Scope (E : Entity_Id) return Node_Id;
    --  Return the N_Package_Specification corresponding to a scope E