diff options
| author | Arnaud Charlet <charlet@adacore.com> | 2024-06-13 07:20:49 +0000 |
|---|---|---|
| committer | Marc Poulhiès <dkm@gcc.gnu.org> | 2024-08-01 17:14:34 +0200 |
| commit | 3c72be1a96fadb6b0e19444f99a51ef0733347a2 (patch) | |
| tree | fc732657ec89d6ff509d6bb668ad115c1b7f95a9 /gcc/ada/sem_ch3.adb | |
| parent | a9302802e56547ba14e8bdd7bbf667bb3a253155 (diff) | |
| download | gcc-3c72be1a96fadb6b0e19444f99a51ef0733347a2.zip gcc-3c72be1a96fadb6b0e19444f99a51ef0733347a2.tar.gz gcc-3c72be1a96fadb6b0e19444f99a51ef0733347a2.tar.bz2 | |
ada: Remove support for bodies in -gnatceg
The support for generating C for Ada code is moved to GNAT LLVM.
Keep support for generating header files from Ada spec files which
is the remaining usage of -gnatceg.
gcc/ada/
* bindgen.adb, bindusg.adb, debug.adb, einfo.ads,
exp_aggr.adb, exp_attr.adb, exp_ch11.adb, exp_ch3.adb,
exp_ch4.adb, exp_ch6.adb, exp_ch7.adb, exp_ch8.adb, exp_dbug.adb,
exp_dbug.ads, exp_intr.adb, exp_unst.adb, exp_util.adb,
exp_util.ads, freeze.adb, gen_il-fields.ads,
gen_il-gen-gen_entities.adb, gnat1drv.adb, inline.adb, opt.ads,
osint-c.adb, osint-c.ads, sem_attr.adb, sem_ch12.adb, sem_ch3.adb,
sem_ch4.adb, sem_ch6.adb, sem_elab.adb, sem_res.adb, sinfo.ads,
snames.ads-tmpl, switch-b.adb, switch-c.adb: Major
clean up to remove C code generation for bodies.
Diffstat (limited to 'gcc/ada/sem_ch3.adb')
| -rw-r--r-- | gcc/ada/sem_ch3.adb | 6 |
1 files changed, 1 insertions, 5 deletions
diff --git a/gcc/ada/sem_ch3.adb b/gcc/ada/sem_ch3.adb index c0943f9..8787a90 100644 --- a/gcc/ada/sem_ch3.adb +++ b/gcc/ada/sem_ch3.adb @@ -4551,11 +4551,7 @@ package body Sem_Ch3 is -- If the aggregate is limited it will be built in place, and its -- expansion is deferred until the object declaration is expanded. - -- This is also required when generating C code to ensure that an - -- object with an alignment or address clause can be initialized - -- by means of component by component assignments. - - if Is_Limited_Type (T) or else Modify_Tree_For_C then + if Is_Limited_Type (T) then Set_Expansion_Delayed (E); end if; |