diff options
| author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2015-10-16 11:01:53 +0000 |
|---|---|---|
| committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2015-10-16 11:01:53 +0000 |
| commit | 36ac5fbb86ae5778529b8bbebaf0e0e1744eb6be (patch) | |
| tree | 84ccc871dc5fdb6b16df1277042294ec753ecebe /gcc/ada/exp_intr.adb | |
| parent | 14fd9219039e56e8b14cf366555ecaae127c4a20 (diff) | |
| download | gcc-36ac5fbb86ae5778529b8bbebaf0e0e1744eb6be.tar.gz | |
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.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@228874 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ada/exp_intr.adb')
| -rw-r--r-- | gcc/ada/exp_intr.adb | 12 |
1 files changed, 2 insertions, 10 deletions
diff --git a/gcc/ada/exp_intr.adb b/gcc/ada/exp_intr.adb index 8002fef8bc9..282662ba2ca 100644 --- a/gcc/ada/exp_intr.adb +++ b/gcc/ada/exp_intr.adb @@ -55,7 +55,6 @@ with Sinput; use Sinput; with Snames; use Snames; with Stand; use Stand; with Stringt; use Stringt; -with Targparm; use Targparm; with Tbuild; use Tbuild; with Uintp; use Uintp; with Urealp; use Urealp; @@ -394,7 +393,8 @@ package body Exp_Intr is Analyze_And_Resolve (N, Etype (Act_Constr)); -- Do not generate a run-time check on the built object if tag - -- checks are suppressed for the result type or VM_Target /= No_VM + -- checks are suppressed for the result type or tagged type expansion + -- is disabled. if Tag_Checks_Suppressed (Etype (Result_Typ)) or else not Tagged_Type_Expansion @@ -1072,14 +1072,6 @@ package body Exp_Intr is Exception_Handlers => New_List ( Build_Exception_Handler (Finalizer_Data))))); - -- For .NET/JVM, detach the object from the containing finalization - -- collection before finalizing it. - - if VM_Target /= No_VM and then Is_Controlled (Desig_T) then - Prepend_To (Final_Code, - Make_Detach_Call (New_Copy_Tree (Arg))); - end if; - -- If aborts are allowed, then the finalization code must be -- protected by an abort defer/undefer pair. |