Commit c7658039 by Eric Botcazou Committed by Arnaud Charlet

freeze.adb: Reenable code.

2016-07-07  Eric Botcazou  <ebotcazou@adacore.com>

	* freeze.adb: Reenable code.

From-SVN: r238109
parent d1ce5f8c
2016-07-07 Eric Botcazou <ebotcazou@adacore.com>
* freeze.adb: Reenable code.
2016-07-07 Yannick Moy <moy@adacore.com> 2016-07-07 Yannick Moy <moy@adacore.com>
* sem_ch6.adb (Process_Formals): Set ghost flag * sem_ch6.adb (Process_Formals): Set ghost flag
......
...@@ -5140,13 +5140,7 @@ package body Freeze is ...@@ -5140,13 +5140,7 @@ package body Freeze is
-- This processing doesn't apply to internal entities (see below) -- This processing doesn't apply to internal entities (see below)
-- Disable this mechanism for now, to fix regressions in ASIS and if not Is_Internal (E) and then Do_Freeze_Profile then
-- 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 Freeze_Profile (E) then if not Freeze_Profile (E) then
Ghost_Mode := Save_Ghost_Mode; Ghost_Mode := Save_Ghost_Mode;
return Result; return Result;
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment