From: Robert Dewar <dewar@adacore.com>
Date: Fri, 24 Jan 2014 14:53:30 +0000 (+0000)
Subject: prj.adb, [...]: Add comment, minor code clean ups.
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=8edc33fae4cfe74e0e485e80ab6edcb3d5d1e1de;p=gcc.git

prj.adb, [...]: Add comment, minor code clean ups.

2014-01-24  Robert Dewar  <dewar@adacore.com>

	* prj.adb, prj-env.adb, back_end.adb: Add comment, minor code clean ups.

From-SVN: r207040
---

diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog
index af31feaf698..41a0ed0ec60 100644
--- a/gcc/ada/ChangeLog
+++ b/gcc/ada/ChangeLog
@@ -1,3 +1,7 @@
+2014-01-24  Robert Dewar  <dewar@adacore.com>
+
+	* prj.adb, prj-env.adb, back_end.adb: Add comment, minor code clean ups.
+
 2014-01-24  Ed Schonberg  <schonberg@adacore.com>
 
 	* sem_ch3.adb (Analyze_Declarations): At the end of an
diff --git a/gcc/ada/back_end.adb b/gcc/ada/back_end.adb
index 59f7bb40065..6c3e9a80e0c 100644
--- a/gcc/ada/back_end.adb
+++ b/gcc/ada/back_end.adb
@@ -268,6 +268,8 @@ package body Back_End is
       Opt.Stack_Checking_Enabled := (flag_stack_check /= 0);
 
       --  Acquire short enums flag directly from GCC
+      --  This needs documentation in the spec ???
+      --  So does the one above! ???
 
       Targparm.Short_Enums_On_Target := (flag_short_enums /= 0);
 
diff --git a/gcc/ada/prj-env.adb b/gcc/ada/prj-env.adb
index e6c23469a75..b3a5d7993c6 100644
--- a/gcc/ada/prj-env.adb
+++ b/gcc/ada/prj-env.adb
@@ -40,7 +40,7 @@ with GNAT.Directory_Operations; use GNAT.Directory_Operations;
 package body Prj.Env is
 
    Buffer_Initial : constant := 1_000;
-   --  Initial size of Buffer
+   --  Initial arbitrary size of buffers
 
    Uninitialized_Prefix : constant String := '#' & Path_Separator;
    --  Prefix to indicate that the project path has not been initialized yet.
@@ -151,7 +151,7 @@ package body Prj.Env is
          --  this project, compute the source path
 
          if Project.Ada_Include_Path = null then
-            Buffer := new String (1 .. 4096);
+            Buffer := new String (1 .. Buffer_Initial);
             For_All_Projects
               (Project, In_Tree, Dummy, Include_Aggregated => True);
             Project.Ada_Include_Path := new String'(Buffer (1 .. Buffer_Last));
@@ -161,7 +161,7 @@ package body Prj.Env is
          return Project.Ada_Include_Path.all;
 
       else
-         Buffer := new String (1 .. 4096);
+         Buffer := new String (1 .. Buffer_Initial);
          Add_To_Path
            (Project.Source_Dirs, In_Tree.Shared, Buffer, Buffer_Last);
 
@@ -236,14 +236,13 @@ package body Prj.Env is
          return Project.Ada_Objects_Path_No_Libs;
 
       else
-         Buffer := new String (1 .. 4096);
+         Buffer := new String (1 .. Buffer_Initial);
          For_All_Projects (Project, In_Tree, Dummy);
          Result := new String'(Buffer (1 .. Buffer_Last));
          Free (Buffer);
 
          if Including_Libraries then
             Project.Ada_Objects_Path := Result;
-
          else
             Project.Ada_Objects_Path_No_Libs := Result;
          end if;
diff --git a/gcc/ada/prj.adb b/gcc/ada/prj.adb
index 5768e1afca0..e3a4c49dcac 100644
--- a/gcc/ada/prj.adb
+++ b/gcc/ada/prj.adb
@@ -1488,8 +1488,8 @@ package body Prj is
             if Project.Object_Directory = No_Path_Information
               or else
                 (Including_Libraries
-                 and then
-                 Contains_ALI_Files (Project.Library_ALI_Dir.Display_Name))
+                  and then
+                    Contains_ALI_Files (Project.Library_ALI_Dir.Display_Name))
             then
                return Project.Library_ALI_Dir.Display_Name;
             else