From: Robert Dewar <dewar@adacore.com>
Date: Wed, 30 Jul 2008 17:38:16 +0000 (+0200)
Subject: exp_util.ads (Find_Prim_Op): Document that Program_Error is raised if no primitive... 
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=7813a5109103ac06197386fa7c6cda211b8f5037;p=gcc.git

exp_util.ads (Find_Prim_Op): Document that Program_Error is raised if no primitive operation is found.

2008-07-30  Robert Dewar  <dewar@adacore.com>

	* exp_util.ads (Find_Prim_Op): Document that Program_Error is raised
	if no primitive operation is found.

	* exp_util.adb: (Find_Prim_Op): Add comments for previous change

From-SVN: r138329
---

diff --git a/gcc/ada/exp_util.adb b/gcc/ada/exp_util.adb
index e4b4389618b..09850f644d4 100644
--- a/gcc/ada/exp_util.adb
+++ b/gcc/ada/exp_util.adb
@@ -1582,6 +1582,8 @@ package body Exp_Util is
 
          Next_Elmt (Prim);
 
+         --  Raise Program_Error if no primitive found
+
          if No (Prim) then
             raise Program_Error;
          end if;
@@ -1612,6 +1614,8 @@ package body Exp_Util is
       while not Is_TSS (Node (Prim), Name) loop
          Next_Elmt (Prim);
 
+         --  Raise program error if no primitive found
+
          if No (Prim) then
             raise Program_Error;
          end if;
diff --git a/gcc/ada/exp_util.ads b/gcc/ada/exp_util.ads
index 5e57147b720..5848d5d7171 100644
--- a/gcc/ada/exp_util.ads
+++ b/gcc/ada/exp_util.ads
@@ -360,7 +360,10 @@ package Exp_Util is
    --  Find the first primitive operation of type T whose name is 'Name'.
    --  This function allows the use of a primitive operation which is not
    --  directly visible. If T is a class wide type, then the reference is
-   --  to an operation of the corresponding root type.
+   --  to an operation of the corresponding root type. Raises Program_Error
+   --  exception if no primitive operation is found. This is normally an
+   --  internal error, but in some cases is an expected consequence of
+   --  illegalities elsewhere.
 
    function Find_Prim_Op
      (T    : Entity_Id;
@@ -370,6 +373,9 @@ package Exp_Util is
    --  with the indicated suffix). This function allows use of a primitive
    --  operation which is not directly visible. If T is a class wide type,
    --  then the reference is to an operation of the corresponding root type.
+   --  Raises Program_Error exception if no primitive operation is found.
+   --  This is normally an internal error, but in some cases is an expected
+   --  consequence of illegalities elsewhere.
 
    function Find_Protection_Object (Scop : Entity_Id) return Entity_Id;
    --  Traverse the scope stack starting from Scop and look for an entry,