summaryrefslogtreecommitdiff
path: root/gcc/ada/exp_ch13.adb
diff options
context:
space:
mode:
Diffstat (limited to 'gcc/ada/exp_ch13.adb')
-rw-r--r--gcc/ada/exp_ch13.adb7
1 files changed, 0 insertions, 7 deletions
diff --git a/gcc/ada/exp_ch13.adb b/gcc/ada/exp_ch13.adb
index 65fa3238a49..6fd7dedfcae 100644
--- a/gcc/ada/exp_ch13.adb
+++ b/gcc/ada/exp_ch13.adb
@@ -47,7 +47,6 @@ with Sem_Eval; use Sem_Eval;
with Sem_Util; use Sem_Util;
with Sinfo; use Sinfo;
with Snames; use Snames;
-with Targparm; use Targparm;
with Tbuild; use Tbuild;
with Uintp; use Uintp;
with Validsw; use Validsw;
@@ -291,12 +290,6 @@ package body Exp_Ch13 is
if Restriction_Active (No_Finalization) then
return;
-
- -- Do not create a specialized Deallocate since .NET/JVM compilers do
- -- not support pools and address arithmetic.
-
- elsif VM_Target /= No_VM then
- return;
end if;
-- Use the base type to perform the check for finalization master