From: Eric Botcazou <ebotcazou@adacore.com>
Date: Fri, 1 Jul 2022 13:24:48 +0000 (+0200)
Subject: [Ada] Add cross-references between Integer_Type_For and Small_Integer_Type_For
X-Git-Url: http://review.tizen.org/git/?a=commitdiff_plain;h=94425248c769d45b5932079321311392e4d8e952;p=platform%2Fupstream%2Fgcc.git

[Ada] Add cross-references between Integer_Type_For and Small_Integer_Type_For

gcc/ada/

	* exp_util.ads (Integer_Type_For): Mention Small_Integer_Type_For.
	(Small_Integer_Type_For): Mention Integer_Type_For.
---

diff --git a/gcc/ada/exp_util.ads b/gcc/ada/exp_util.ads
index e812ca0..1b7be3a 100644
--- a/gcc/ada/exp_util.ads
+++ b/gcc/ada/exp_util.ads
@@ -758,7 +758,7 @@ package Exp_Util is
 
    function Integer_Type_For (S : Uint; Uns : Boolean) return Entity_Id;
    --  Return a suitable standard integer type containing at least S bits and
-   --  of the signedness given by Uns.
+   --  of the signedness given by Uns. See also Small_Integer_Type_For.
 
    function Is_Displacement_Of_Object_Or_Function_Result
      (Obj_Id : Entity_Id) return Boolean;
@@ -1193,7 +1193,7 @@ package Exp_Util is
 
    function Small_Integer_Type_For (S : Uint; Uns : Boolean) return Entity_Id;
    --  Return the smallest standard integer type containing at least S bits and
-   --  of the signedness given by Uns.
+   --  of the signedness given by Uns. See also Integer_Type_For.
 
    function Thunk_Target (Thunk : Entity_Id) return Entity_Id;
    --  Return the entity ultimately called by the thunk, that is to say return