diff options
Diffstat (limited to 'gcc/ada/rtsfind.adb')
| -rw-r--r-- | gcc/ada/rtsfind.adb | 3 |
1 files changed, 0 insertions, 3 deletions
diff --git a/gcc/ada/rtsfind.adb b/gcc/ada/rtsfind.adb index 4999e0bad3b..3d0acf16026 100644 --- a/gcc/ada/rtsfind.adb +++ b/gcc/ada/rtsfind.adb @@ -550,7 +550,6 @@ package body Rtsfind is declare Loaded : Boolean; pragma Warnings (Off, Loaded); - begin Loaded := Is_Loaded (U.Uname); end; @@ -569,7 +568,6 @@ package body Rtsfind is if U.Unum = No_Unit then Load_Fail ("not found", U_Id, Id); - elsif Fatal_Error (U.Unum) then Load_Fail ("had parser errors", U_Id, Id); end if; @@ -601,7 +599,6 @@ package body Rtsfind is Set_Analyzed (Cunit (Current_Sem_Unit), True); if not Analyzed (Cunit (U.Unum)) then - Save_Private_Visibility; Semantics (Cunit (U.Unum)); Restore_Private_Visibility; |