OpenE2K
/
gcc
2
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

rtsfind.adb: (Load_RTU): Turn off style checks for Load call 

2007-10-15  Robert Dewar  <dewar@adacore.com>

	* rtsfind.adb: (Load_RTU): Turn off style checks for Load call

From-SVN: r129330
This commit is contained in:
Robert Dewar 2007-10-15 15:56:05 +02:00 committed by Arnaud Charlet
parent 1b68567490
commit 3d63f8c9a1
1 changed files with 17 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

25
gcc/ada/rtsfind.adb
View File

@ -584,7 +584,6 @@ package body Rtsfind is
begin
E_Par := First_Elmt (Priv_Par);
while Present (E_Par) loop
if not In_Private_Part (Node (E_Par)) then
Install_Private_Declarations (Node (E_Par));
@ -603,7 +602,6 @@ package body Rtsfind is
begin
Par := Scope (Current_Scope);
while Present (Par)
and then Par /= Standard_Standard
loop
@ -651,12 +649,23 @@ package body Rtsfind is
-- file as a fatal error, and that it should not output any kind
-- of diagnostics, since we will take care of it here.
U.Unum :=
Load_Unit
(Load_Name => U.Uname,
Required => False,
Subunit => False,
Error_Node => Empty);
-- We save style checking switches and turn off style checking for
-- loading the unit, since we don't want any style checking!
declare
Save_Style_Check : constant Boolean := Style_Check;
begin
Style_Check := False;
U.Unum :=
Load_Unit
(Load_Name => U.Uname,
Required => False,
Subunit => False,
Error_Node => Empty);
Style_Check := Save_Style_Check;
end;
-- Check for bad unit load
if U.Unum = No_Unit then
Load_Fail ("not found", U_Id, Id);