From: Arnaud Charlet <charlet@gcc.gnu.org>
Date: Tue, 6 Jan 2015 09:01:19 +0000 (+0100)
Subject: Minor reformatting.
X-Git-Tag: releases/gcc-5.1.0~2053
X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=17d01d213579c0ee53913f82f4f9e40109f069ca;p=thirdparty%2Fgcc.git

Minor reformatting.

From-SVN: r219224
---

diff --git a/gcc/ada/gnatls.adb b/gcc/ada/gnatls.adb
index 6ef23a24253b..1e33a36a2842 100644
--- 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 dd60df9b3083..7b76ae04e388 100644
--- 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;