diff options
author | Bob Duff <duff@adacore.com> | 2021-03-18 18:46:16 -0400 |
---|---|---|
committer | Pierre-Marie de Rodat <derodat@adacore.com> | 2021-06-18 04:36:51 -0400 |
commit | 9324e07dbd14cf1da1627676b5f4aeb6ba606e4a (patch) | |
tree | 7b9fe5e2b551778b3212ca37735e8ada974a3990 /gcc/ada/freeze.adb | |
parent | f44441d80fa8523a2e1b294b8563180202879727 (diff) | |
download | gcc-9324e07dbd14cf1da1627676b5f4aeb6ba606e4a.zip gcc-9324e07dbd14cf1da1627676b5f4aeb6ba606e4a.tar.gz gcc-9324e07dbd14cf1da1627676b5f4aeb6ba606e4a.tar.bz2 |
[Ada] Remove AAMP from compiler sources
gcc/ada/
* ada_get_targ.adb, aspects.ads, checks.adb, cstand.adb,
einfo.ads, exp_attr.adb, freeze.adb, get_targ.adb,
libgnat/a-textio.ads, libgnat/g-memdum.ads,
libgnat/s-scaval__128.adb, libgnat/s-scaval.adb, make.adb,
osint.ads, par-prag.adb, sem_ch13.adb, sem_prag.adb,
sem_prag.ads, set_targ.adb, set_targ.ads, snames.ads-tmpl,
targparm.ads, types.ads: Remove AAMP-specific code.
* switch.ads: Minor reformatting.
* gen_il-fields.ads, gen_il-gen.adb,
gen_il-gen-gen_entities.adb, gen_il-types.ads, einfo-utils.adb,
einfo-utils.ads: Package Types now contains "type Float_Rep_Kind
is (IEEE_Binary);", which used to also have an enumeral AAMP.
Gen_IL can't handle fields of this type, which would be zero
sized. Therefore, we move the Float_Rep field into Einfo.Utils
as a synthesized attribute. (We do not delete the field
altogether, in case we want new floating-point representations
in the future.)
* doc/gnat_rm/implementation_defined_pragmas.rst,
doc/gnat_rm/implementation_defined_aspects.rst,
doc/gnat_ugn/building_executable_programs_with_gnat.rst,
doc/gnat_ugn/the_gnat_compilation_model.rst: Remove
AAMP-specific documentation.
* gnat_rm.texi, gnat_ugn.texi: Regenerate.
Diffstat (limited to 'gcc/ada/freeze.adb')
-rw-r--r-- | gcc/ada/freeze.adb | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/gcc/ada/freeze.adb b/gcc/ada/freeze.adb index fd82169..b539e59 100644 --- a/gcc/ada/freeze.adb +++ b/gcc/ada/freeze.adb @@ -4317,8 +4317,7 @@ package body Freeze is and then Convention (E) /= Convention_Intrinsic - -- Assume that ASM interface knows what it is doing. This deals - -- with e.g. unsigned.ads in the AAMP back end. + -- Assume that ASM interface knows what it is doing and then Convention (E) /= Convention_Assembler then |