diff options
Diffstat (limited to 'gcc/ada/prepcomp.adb')
| -rw-r--r-- | gcc/ada/prepcomp.adb | 15 |
1 files changed, 7 insertions, 8 deletions
diff --git a/gcc/ada/prepcomp.adb b/gcc/ada/prepcomp.adb index 7c56130..320d622 100644 --- a/gcc/ada/prepcomp.adb +++ b/gcc/ada/prepcomp.adb @@ -630,17 +630,16 @@ package body Prepcomp is String_To_Name_Buffer (Current_Data.Deffile); declare - N : constant File_Name_Type := Name_Find; - Deffile : constant Source_File_Index := - Load_Definition_File (N); - Add_Deffile : Boolean := True; - T : constant Nat := Total_Errors_Detected; + N : constant File_Name_Type := Name_Find; + Deffile : constant Source_File_Index := Load_Definition_File (N); + T : constant Nat := Total_Errors_Detected; + + Add_Deffile : Boolean := True; begin if Deffile <= No_Source_File then - Fail ("definition file """ - & Get_Name_String (N) - & """ not found"); + Fail + ("definition file """ & Get_Name_String (N) & """ not found"); end if; -- Initialize the preprocessor and set the characteristics of the |