From 94425248c769d45b5932079321311392e4d8e952 Mon Sep 17 00:00:00 2001 From: Eric Botcazou Date: Fri, 1 Jul 2022 15:24:48 +0200 Subject: [PATCH] [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. --- gcc/ada/exp_util.ads | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) 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 -- 2.7.4