diff options
| author | Robert Dewar <dewar@adacore.com> | 2014-01-24 14:53:30 +0000 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2014-01-24 15:53:30 +0100 |
| commit | 8edc33fae4cfe74e0e485e80ab6edcb3d5d1e1de (patch) | |
| tree | b8026ad32e534a0785f4d0848aaaf0449ec07f25 /gcc | |
| parent | ad4e3362d3ea425d26c91c5a7d35a2649146bef9 (diff) | |
| download | gcc-8edc33fae4cfe74e0e485e80ab6edcb3d5d1e1de.zip gcc-8edc33fae4cfe74e0e485e80ab6edcb3d5d1e1de.tar.gz gcc-8edc33fae4cfe74e0e485e80ab6edcb3d5d1e1de.tar.bz2 | |
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
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/ada/ChangeLog | 4 | ||||
| -rw-r--r-- | gcc/ada/back_end.adb | 2 | ||||
| -rw-r--r-- | gcc/ada/prj-env.adb | 9 | ||||
| -rw-r--r-- | gcc/ada/prj.adb | 4 |
4 files changed, 12 insertions, 7 deletions
diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog index af31fea..41a0ed0 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 59f7bb4..6c3e9a8 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 e6c2346..b3a5d79 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 5768e1a..e3a4c49 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 |