From c765803988b84491db16abd42997930befa693e3 Mon Sep 17 00:00:00 2001 From: Eric Botcazou Date: Thu, 7 Jul 2016 13:00:54 +0000 Subject: [PATCH] freeze.adb: Reenable code. 2016-07-07 Eric Botcazou * freeze.adb: Reenable code. From-SVN: r238109 --- gcc/ada/ChangeLog | 4 ++++ gcc/ada/freeze.adb | 8 +------- 2 files changed, 5 insertions(+), 7 deletions(-) diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog index 6303d819fd7..48afee0571c 100644 --- a/gcc/ada/ChangeLog +++ b/gcc/ada/ChangeLog @@ -1,3 +1,7 @@ +2016-07-07 Eric Botcazou + + * freeze.adb: Reenable code. + 2016-07-07 Yannick Moy * sem_ch6.adb (Process_Formals): Set ghost flag diff --git a/gcc/ada/freeze.adb b/gcc/ada/freeze.adb index 12f60a0c900..6962d9b3bb2 100644 --- a/gcc/ada/freeze.adb +++ b/gcc/ada/freeze.adb @@ -5140,13 +5140,7 @@ package body Freeze is -- This processing doesn't apply to internal entities (see below) - -- Disable this mechanism for now, to fix regressions in ASIS and - -- various ACATS tests. Implementation of AI05-019 remains - -- unsolved ??? - - if not Is_Internal (E) - and then (Do_Freeze_Profile or else True) - then + if not Is_Internal (E) and then Do_Freeze_Profile then if not Freeze_Profile (E) then Ghost_Mode := Save_Ghost_Mode; return Result; -- 2.30.2