gnatfind.adb, [...]: Minor reformatting and code clean up.

[gcc.git] / gcc / ada / xr_tabls.adb

diff --git a/gcc/ada/xr_tabls.adb b/gcc/ada/xr_tabls.adb
index 30a4ecc55a4e5390e660a15a23e0620ee0e95734..95bdfa985d87ffe7477dcd7696efa1dd10479960 100644 (file)
--- a/gcc/ada/xr_tabls.adb
+++ b/gcc/ada/xr_tabls.adb
@@ -824,14 +824,14 @@ package body Xr_Tabls is
       end if;
 
       if File.Dir = null then
-         if Ada.Strings.Fixed.Tail (File.File.all, 3)
-           = Osint.ALI_Suffix.all
+         if Ada.Strings.Fixed.Tail (File.File.all, 3) =
+                                               Osint.ALI_Suffix.all
          then
             Tmp := Locate_Regular_File
-              (Internal_Strip (File.File.all), Directories.Obj_Dir);
+                     (Internal_Strip (File.File.all), Directories.Obj_Dir);
          else
             Tmp := Locate_Regular_File
-              (File.File.all, Directories.Src_Dir);
+                     (File.File.all, Directories.Src_Dir);
          end if;
 
          if Tmp = null then