+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
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);
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.
-- 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));
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);
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;
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