From: Robert Dewar <dewar@adacore.com>
Date: Mon, 15 Oct 2007 13:56:05 +0000 (+0200)
Subject: rtsfind.adb: (Load_RTU): Turn off style checks for Load call
X-Git-Tag: releases/gcc-4.3.0~2035
X-Git-Url: http://git.ipfire.org/?a=commitdiff_plain;h=3d63f8c9a15ccf99d996b9d039ff477be978d0d8;p=thirdparty%2Fgcc.git

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
---

diff --git a/gcc/ada/rtsfind.adb b/gcc/ada/rtsfind.adb
index 0b17d957f814..fb5d1c3bd21b 100644
--- a/gcc/ada/rtsfind.adb
+++ b/gcc/ada/rtsfind.adb
@@ -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);