diff options
| author | Robert Dewar <dewar@adacore.com> | 2007-10-15 15:56:05 +0200 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2007-10-15 15:56:05 +0200 |
| commit | 3d63f8c9a15ccf99d996b9d039ff477be978d0d8 (patch) | |
| tree | 3a5c8ff491ef5fc2400ee721248648626dacf157 | |
| parent | 1b68567490b702d200be15437d69449f9becfe8d (diff) | |
| download | gcc-3d63f8c9a15ccf99d996b9d039ff477be978d0d8.zip gcc-3d63f8c9a15ccf99d996b9d039ff477be978d0d8.tar.gz gcc-3d63f8c9a15ccf99d996b9d039ff477be978d0d8.tar.bz2 | |
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
| -rw-r--r-- | gcc/ada/rtsfind.adb | 25 |
1 files changed, 17 insertions, 8 deletions
diff --git a/gcc/ada/rtsfind.adb b/gcc/ada/rtsfind.adb index 0b17d95..fb5d1c3 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); |