From c7732bbe382b982e60eb9d606752d012159d1a18 Mon Sep 17 00:00:00 2001 From: Eric Botcazou Date: Thu, 12 Dec 2019 10:01:46 +0000 Subject: [Ada] Mark Ada subprograms and variables referenced from gigi 2019-12-12 Eric Botcazou 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 --- gcc/ada/lib.ads | 4 ++++ 1 file changed, 4 insertions(+) (limited to 'gcc/ada/lib.ads') diff --git a/gcc/ada/lib.ads b/gcc/ada/lib.ads index 7665f86..f20a18f 100644 --- a/gcc/ada/lib.ads +++ b/gcc/ada/lib.ads @@ -476,6 +476,8 @@ package Lib is function Unit_Name (U : Unit_Number_Type) return Unit_Name_Type; -- Get value of named field from given units table entry + -- WARNING: There is a matching C declaration of a few subprograms in fe.h + procedure Set_Cunit (U : Unit_Number_Type; N : Node_Id); procedure Set_Cunit_Entity (U : Unit_Number_Type; E : Entity_Id); procedure Set_Dynamic_Elab (U : Unit_Number_Type; B : Boolean := True); @@ -617,6 +619,8 @@ package Lib is -- the special case check to that routine. This avoids some difficulties -- with some other calls that malfunctioned with the odd return of True. + -- WARNING: There is a matching C declaration of this subprogram in fe.h + function In_Extended_Main_Code_Unit (Loc : Source_Ptr) return Boolean; -- Same function as above, but argument is a source pointer rather -- than a node. -- cgit v1.1