From 07ef182e37382f49a97e8da1ce3508acdf3e3493 Mon Sep 17 00:00:00 2001 From: Arnaud Charlet Date: Tue, 2 Oct 2012 10:19:14 +0200 Subject: [multiple changes] 2012-10-02 Vincent Pucci * sem_attr.adb (Analyze_Attribute): Check dimension for attribute Old before it gets expanded. * sem_dim.adb (Analyze_Dimension_Has_Etype): Correctly propagate dimensions for identifier. 2012-10-02 Ed Schonberg * exp_ch5.adb (Expand_Iterator_Loop): Handle properly the case where the iterator type is derived locally from an instantiation of Ada.Iterators_Interface. * exp_ch7.adb (Establish_Transient_Scope): Do not create a transient scope if within the expansion of an iterator loop, because a transient block already exists. 2012-10-02 Vincent Celier * gnatcmd.adb: Use absolute path for configuration pragmas files * make.adb (Configuration_Pragmas_Switch.Absolute_Path): Moved to Makeutl. * makeutl.ads, makeutl.adb (Absolute_Path): New function, moved from make.adb. 2012-10-02 Vincent Celier * prj-part.adb (Post_Parse_Context_Clause): Resurrect Boolean parameter In_Limited. Check for circularity also if In_Limited is True. (Parse_Single_Project): Call Post_Parse_Context_Clause with In_Limited parameter. From-SVN: r191961 --- gcc/ada/make.adb | 38 -------------------------------------- 1 file changed, 38 deletions(-) (limited to 'gcc/ada/make.adb') diff --git a/gcc/ada/make.adb b/gcc/ada/make.adb index 69a996d..2867425 100644 --- a/gcc/ada/make.adb +++ b/gcc/ada/make.adb @@ -3790,44 +3790,6 @@ package body Make is Result : Argument_List (1 .. 3); Last : Natural := 0; - function Absolute_Path - (Path : Path_Name_Type; - Project : Project_Id) return String; - -- Returns an absolute path for a configuration pragmas file - - ------------------- - -- Absolute_Path -- - ------------------- - - function Absolute_Path - (Path : Path_Name_Type; - Project : Project_Id) return String - is - begin - Get_Name_String (Path); - - declare - Path_Name : constant String := Name_Buffer (1 .. Name_Len); - - begin - if Is_Absolute_Path (Path_Name) then - return Path_Name; - - else - declare - Parent_Directory : constant String := - Get_Name_String - (Project.Directory.Display_Name); - - begin - return Parent_Directory & Path_Name; - end; - end if; - end; - end Absolute_Path; - - -- Start of processing for Configuration_Pragmas_Switch - begin Prj.Env.Create_Config_Pragmas_File (For_Project, Project_Tree); -- cgit v1.1