2004-07-06 Vincent Celier <celier@gnat.com>

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

diff --git a/gcc/ada/sem_util.ads b/gcc/ada/sem_util.ads
index a32ddc0..93e4165 100644 (file)
--- a/gcc/ada/sem_util.ads
+++ b/gcc/ada/sem_util.ads
@@ -357,6 +357,10 @@ package Sem_Util is
    --  Task_Body_Procedure field from the corresponding task type
    --  declaration.
 
+   function Has_Access_Values (T : Entity_Id) return Boolean;
+   --  Returns true if type or subtype T is an access type, or has a
+   --  component (at any recursive level) that is an access type.
+
    function Has_Declarations (N : Node_Id) return Boolean;
    --  Determines if the node can have declarations