Minor reformatting.

From-SVN: r219224

diff --git a/gcc/ada/gnatls.adb b/gcc/ada/gnatls.adb
index 6ef23a2..1e33a36 100644 (file)
--- a/gcc/ada/gnatls.adb
+++ b/gcc/ada/gnatls.adb
@@ -1227,7 +1227,7 @@ procedure Gnatls is
          Add_Search_Dirs (Lib_Path, Objects);
          Initialize_Default_Project_Path
            (Prj_Path,
-            Target_Name => Sdefault.Target_Name.all,
+            Target_Name  => Sdefault.Target_Name.all,
             Runtime_Name => Name);
          return;
       end if;
@@ -1242,7 +1242,7 @@ procedure Gnatls is
 
       Initialize_Default_Project_Path
         (Prj_Path,
-         Target_Name => Sdefault.Target_Name.all,
+         Target_Name  => Sdefault.Target_Name.all,
          Runtime_Name => Name);
 
       Rts_Full_Path := Get_Runtime_Path (Prj_Path, Name);

diff --git a/gcc/ada/prj-env.adb b/gcc/ada/prj-env.adb
index dd60df9..7b76ae0 100644 (file)
--- a/gcc/ada/prj-env.adb
+++ b/gcc/ada/prj-env.adb
@@ -1895,24 +1895,30 @@ package body Prj.Env is
       --  The path name(s) of directories where project files may reside.
       --  May be empty.
 
-      Prefix : String_Ptr;
+      Prefix  : String_Ptr;
       Runtime : String_Ptr;
 
       procedure Add_Target;
+      --  Comment ALWAYS required for nested subprogram spec ???
+
+      ----------------
+      -- Add_Target --
+      ----------------
 
       procedure Add_Target is
       begin
          Add_Str_To_Name_Buffer
            (Path_Separator & Prefix.all & Target_Name);
 
-         --  Note: Target_Name has a trailing / when it comes from
-         --  Sdefault.
+         --  Note: Target_Name has a trailing / when it comes from Sdefault
 
          if Name_Buffer (Name_Len) /= '/' then
             Add_Char_To_Name_Buffer (Directory_Separator);
          end if;
       end Add_Target;
 
+   --  Start of processing for Initialize_Default_Project_Path
+
    begin
       if Is_Initialized (Self) then
          return;