diff options
| author | Arnaud Charlet <charlet@adacore.com> | 2015-10-16 11:01:53 +0000 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2015-10-16 13:01:53 +0200 |
| commit | 535a86378ea5182125321ceede077e3781973f0a (patch) | |
| tree | 84ccc871dc5fdb6b16df1277042294ec753ecebe /gcc/ada/sem_ch8.adb | |
| parent | 07fbef62d559b9b7e9c4563e6c4d17206b91363f (diff) | |
| download | gcc-535a86378ea5182125321ceede077e3781973f0a.zip gcc-535a86378ea5182125321ceede077e3781973f0a.tar.gz gcc-535a86378ea5182125321ceede077e3781973f0a.tar.bz2 | |
exp_ch5.adb, [...]: Code clean up: remove special handling for .NET and JVM.
2015-10-16 Arnaud Charlet <charlet@adacore.com>
* exp_ch5.adb, sem_ch3.adb, frontend.adb, exp_ch7.adb, exp_ch7.ads,
sem_ch5.adb, sem_type.adb, exp_util.adb, exp_util.ads, comperr.adb,
exp_attr.adb, sinfo.ads, exp_ch9.adb, make.adb, usage.adb,
lib-writ.adb, sem_ch9.adb, bindgen.adb, debug.adb, einfo.adb,
einfo.ads, types.ads, checks.adb, sem_prag.adb, s-tasini.adb,
rtsfind.ads, freeze.adb, sem_util.adb, sem_util.ads, exp_dbug.adb,
gnatlink.adb, gnat1drv.adb, targparm.adb, targparm.ads, exp_ch4.adb,
exp_ch11.adb, repinfo.adb, s-soflin.adb, s-soflin.ads, exp_ch6.adb,
exp_ch13.adb, sem_mech.adb, sem_ch6.adb, par-prag.adb, exp_disp.adb,
sem_ch8.adb, exp_disp.ads, snames.adb-tmpl, exp_aggr.adb, sem_eval.adb,
exp_intr.adb, sem_ch13.adb, snames.ads-tmpl, sem_disp.adb, exp_ch3.adb:
Code clean up: remove special handling for .NET and JVM.
From-SVN: r228874
Diffstat (limited to 'gcc/ada/sem_ch8.adb')
| -rw-r--r-- | gcc/ada/sem_ch8.adb | 16 |
1 files changed, 4 insertions, 12 deletions
diff --git a/gcc/ada/sem_ch8.adb b/gcc/ada/sem_ch8.adb index a12649e..b2c6d82 100644 --- a/gcc/ada/sem_ch8.adb +++ b/gcc/ada/sem_ch8.adb @@ -68,7 +68,6 @@ with Sinfo.CN; use Sinfo.CN; with Snames; use Snames; with Style; use Style; with Table; -with Targparm; use Targparm; with Tbuild; use Tbuild; with Uintp; use Uintp; @@ -3909,15 +3908,14 @@ package body Sem_Ch8 is -- type is still not frozen). We exclude from this processing generic -- formal subprograms found in instantiations. - -- We must exclude VM targets and restricted run-time libraries because + -- We must exclude restricted run-time libraries because -- entity AST_Handler is defined in package System.Aux_Dec which is not -- available in those platforms. Note that we cannot use the function -- Restricted_Profile (instead of Configurable_Run_Time_Mode) because -- the ZFP run-time library is not defined as a profile, and we do not -- want to deal with AST_Handler in ZFP mode. - if VM_Target = No_VM - and then not Configurable_Run_Time_Mode + if not Configurable_Run_Time_Mode and then not Present (Corresponding_Formal_Spec (N)) and then Etype (Nam) /= RTE (RE_AST_Handler) then @@ -5606,8 +5604,6 @@ package body Sem_Ch8 is end case; end if; end if; - - Check_Nested_Access (E); end if; Set_Entity_Or_Discriminal (N, E); @@ -6602,13 +6598,9 @@ package body Sem_Ch8 is -- Do not build the subtype when referencing components of -- dispatch table wrappers. Required to avoid generating - -- elaboration code with HI runtimes. JVM and .NET use a - -- modified version of Ada.Tags which does not contain RE_ - -- Dispatch_Table_Wrapper and RE_No_Dispatch_Table_Wrapper. - -- Avoid raising RE_Not_Available exception in those cases. + -- elaboration code with HI runtimes. - elsif VM_Target = No_VM - and then RTU_Loaded (Ada_Tags) + elsif RTU_Loaded (Ada_Tags) and then ((RTE_Available (RE_Dispatch_Table_Wrapper) and then Scope (Selector) = |