Commit 3d63f8c9 by Robert Dewar Committed by Arnaud Charlet

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