diff options
| author | Eric Botcazou <ebotcazou@adacore.com> | 2019-12-12 10:01:46 +0000 |
|---|---|---|
| committer | Pierre-Marie de Rodat <pmderodat@gcc.gnu.org> | 2019-12-12 10:01:46 +0000 |
| commit | c7732bbe382b982e60eb9d606752d012159d1a18 (patch) | |
| tree | b46451b99c25052df3b8ccbd71030bcd9f53c12f /gcc/ada/errout.ads | |
| parent | a1449c89b7272739d0ec32ad7ca4c53460337633 (diff) | |
| download | gcc-c7732bbe382b982e60eb9d606752d012159d1a18.zip gcc-c7732bbe382b982e60eb9d606752d012159d1a18.tar.gz gcc-c7732bbe382b982e60eb9d606752d012159d1a18.tar.bz2 | |
[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
Diffstat (limited to 'gcc/ada/errout.ads')
| -rw-r--r-- | gcc/ada/errout.ads | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/gcc/ada/errout.ads b/gcc/ada/errout.ads index 37db3e585..dfa6b86 100644 --- a/gcc/ada/errout.ads +++ b/gcc/ada/errout.ads @@ -734,6 +734,8 @@ package Errout is -- suppressed if the node N already has a message posted, or if it is a -- warning and N is an entity node for which warnings are suppressed. + -- WARNING: There is a matching C declaration of this subprogram in fe.h + procedure Error_Msg_F (Msg : String; N : Node_Id); -- Similar to Error_Msg_N except that the message is placed on the first -- node of the construct N (First_Node (N)). Note that this procedure uses @@ -750,6 +752,8 @@ package Errout is -- will contain a & or } as usual to mark the insertion point. This -- routine can be called from the parser or the analyzer. + -- WARNING: There is a matching C declaration of this subprogram in fe.h + procedure Error_Msg_FE (Msg : String; N : Node_Id; @@ -948,6 +952,8 @@ package Errout is -- This name is the identifier name as passed, cased according to the -- default identifier casing for the given file. + -- WARNING: There is a matching C declaration of this subprogram in fe.h + Size_Too_Small_Message : constant String := "size for& too small, minimum allowed is ^"; -- This message is explicitly tested in Special_Msg_Delete in the package |