[Ada] Mark Ada subprograms and variables referenced from gigi

2019-12-12  Eric Botcazou  <ebotcazou@adacore.com>

gcc/ada/

	* atree.ads, comperr.ads, debug.ads, einfo.ads, elists.ads,
	err_vars.ads, errout.ads, exp_ch11.ads, exp_code.ads,
	exp_dbug.ads, exp_tss.ads, exp_util.ads, lib.ads, namet.ads,
	nlists.ads, opt.ads, repinfo.ads, restrict.ads, scos.ads,
	sem_aggr.ads, sem_aux.ads, sem_eval.ads, sem_util.ads,
	sinfo.ads, sinput.ads, stringt.ads, targparm.ads, types.ads,
	urealp.ads warnsw.ads: Add WARNING line(s) in commentary.
	* atree.h, elists.h, namet.h, nlists.h, repinfo.h, scos.h,
	stringt.h, types.h, uintp.h, urealp.h: Tidy up.
	* fe.h: Likewise.  Document WARNING mark.

From-SVN: r279278

1 files changed, 8 insertions, 0 deletions

diff --git a/gcc/ada/exp_ch11.ads b/gcc/ada/exp_ch11.ads
index e5d8e21..afc9a40 100644
--- a/gcc/ada/exp_ch11.ads
+++ b/gcc/ada/exp_ch11.ads
@@ -70,6 +70,8 @@ package Exp_Ch11 is
    --  a goto statement. If Local_Raise is defined, its entity is returned,
    --  if not, Empty is returned (in which case the call is silently skipped).
 
+   --  WARNING: There is a matching C declaration of this subprogram in fe.h
+
    function Get_RT_Exception_Entity (R : RT_Exception_Code) return Entity_Id;
    --  This function is provided for use by the back end in conjunction with
    --  generation of Local_Raise calls when an exception raise is converted to
@@ -77,11 +79,15 @@ package Exp_Ch11 is
    --  to determine which Rcheck_nn procedure to call. The returned result is
    --  the exception entity to be passed to Local_Raise.
 
+   --  WARNING: There is a matching C declaration of this subprogram in fe.h
+
    procedure Get_RT_Exception_Name (Code : RT_Exception_Code);
    --  This procedure is provided for use by the back end to obtain the name of
    --  the Rcheck procedure for Code. The name is appended to Namet.Name_Buffer
    --  without the __gnat_rcheck_ prefix.
 
+   --  WARNING: There is a matching C declaration of this subprogram in fe.h
+
    procedure Possible_Local_Raise (N : Node_Id; E : Entity_Id);
    --  This procedure is called whenever node N might cause the back end
    --  to generate a local raise for a local Constraint/Program/Storage_Error
@@ -95,4 +101,6 @@ package Exp_Ch11 is
    --  Issues warning if No_Exception_Propagation restriction is set. N is the
    --  node for the handler.
 
+   --  WARNING: There is a matching C declaration of this subprogram in fe.h
+
 end Exp_Ch11;