diff options
| author | Ghjuvan Lacambre <lacambre@adacore.com> | 2021-03-17 18:33:34 +0100 |
|---|---|---|
| committer | Pierre-Marie de Rodat <derodat@adacore.com> | 2021-07-05 13:09:11 +0000 |
| commit | 36d4f97d589085ddb0abccf3e0f76a3a1c8045c2 (patch) | |
| tree | bc2fa1aa5114abe2e6742cb3f6905978d7a72a99 /gcc/ada/gnat1drv.adb | |
| parent | 22c0e0cabd0d9c1f100e7a5f43c8781198e3448e (diff) | |
| download | gcc-36d4f97d589085ddb0abccf3e0f76a3a1c8045c2.zip gcc-36d4f97d589085ddb0abccf3e0f76a3a1c8045c2.tar.gz gcc-36d4f97d589085ddb0abccf3e0f76a3a1c8045c2.tar.bz2 | |
[Ada] Turn GNAT_Annotate into its own pragma
gcc/ada/
* aspects.ads: Add GNAT_Annotate aspect.
* gnat1drv.adb (Adjust_Global_Switches): Stop defining
Name_Gnat_Annotate as an alias of Name_Annotate.
* snames.ads-tmpl: Define Gnat_Annotate.
* par-prag.adb, sem_prag.ads: Add Pragma_Gnat_Annotate to list
of pragmas.
* lib-writ.adb, sem_ch13.adb, sem_prag.adb: Handle Gnat_Annotate
like Aspect_Annotate.
Diffstat (limited to 'gcc/ada/gnat1drv.adb')
| -rw-r--r-- | gcc/ada/gnat1drv.adb | 7 |
1 files changed, 0 insertions, 7 deletions
diff --git a/gcc/ada/gnat1drv.adb b/gcc/ada/gnat1drv.adb index 59b9595..22c9311 100644 --- a/gcc/ada/gnat1drv.adb +++ b/gcc/ada/gnat1drv.adb @@ -67,7 +67,6 @@ with Sem_Type; with Set_Targ; with Sinfo; use Sinfo; with Sinfo.Nodes; use Sinfo.Nodes; -with Sinfo.Utils; use Sinfo.Utils; with Sinput; use Sinput; with Sinput.L; use Sinput.L; with Snames; use Snames; @@ -146,12 +145,6 @@ procedure Gnat1drv is -- Start of processing for Adjust_Global_Switches begin - -- Define pragma GNAT_Annotate as an alias of pragma Annotate, to be - -- able to work around bootstrap limitations with the old syntax of - -- pragma Annotate, and use pragma GNAT_Annotate in compiler sources - -- when needed. - - Map_Pragma_Name (From => Name_Gnat_Annotate, To => Name_Annotate); -- -gnatd_U disables prepending error messages with "error:" |