Commit ffa5876f by Arnaud Charlet

[multiple changes]

2009-06-26  Matthew Gingell  <gingell@adacore.com>

	* adaint.c: Do not use the dummy version of convert_addresses on LynxOS

2009-06-26  Vincent Celier  <celier@adacore.com>

	* prj.ads (No_Language_Config): Value of Dependency_Kind is None by
	default.

2009-06-26  Robert Dewar  <dewar@adacore.com>

	* exp_ch4.adb, gnatcmd.adb, make.adb: Minor reformatting

From-SVN: r148963
parent 4e6602a8
2009-06-26 Matthew Gingell <gingell@adacore.com>
* adaint.c: Do not use the dummy version of convert_addresses on LynxOS
2009-06-26 Vincent Celier <celier@adacore.com>
* prj.ads (No_Language_Config): Value of Dependency_Kind is None by
default.
2009-06-26 Robert Dewar <dewar@adacore.com>
* exp_ch4.adb, gnatcmd.adb, make.adb: Minor reformatting
2009-06-26 Eric Botcazou <ebotcazou@adacore.com> 2009-06-26 Eric Botcazou <ebotcazou@adacore.com>
* gcc-interface/decl.c (gnat_to_gnu_entity) <E_Array_Type>: Pass * gcc-interface/decl.c (gnat_to_gnu_entity) <E_Array_Type>: Pass
......
...@@ -3312,6 +3312,7 @@ _flush_cache() ...@@ -3312,6 +3312,7 @@ _flush_cache()
&& ! (defined (linux) && defined (__ia64__)) \ && ! (defined (linux) && defined (__ia64__)) \
&& ! (defined (linux) && defined (powerpc)) \ && ! (defined (linux) && defined (powerpc)) \
&& ! defined (__FreeBSD__) \ && ! defined (__FreeBSD__) \
&& ! defined (__Lynx__) \
&& ! defined (__hpux__) \ && ! defined (__hpux__) \
&& ! defined (__APPLE__) \ && ! defined (__APPLE__) \
&& ! defined (_AIX) \ && ! defined (_AIX) \
......
...@@ -599,27 +599,28 @@ package body Exp_Ch4 is ...@@ -599,27 +599,28 @@ package body Exp_Ch4 is
Apply_Accessibility_Check (Temp); Apply_Accessibility_Check (Temp);
-- Locate the enclosing list to insert the C++ constructor call -- Locate the enclosing list and insert the C++ constructor call
declare declare
P : Node_Id := Parent (Node); P : Node_Id;
begin begin
P := Parent (Node);
while not Is_List_Member (P) loop while not Is_List_Member (P) loop
P := Parent (P); P := Parent (P);
end loop; end loop;
Insert_List_After_And_Analyze (P, Insert_List_After_And_Analyze (P,
Build_Initialization_Call (Loc, Build_Initialization_Call (Loc,
Id_Ref => Make_Explicit_Dereference (Loc, Id_Ref =>
New_Reference_To (Temp, Loc)), Make_Explicit_Dereference (Loc,
Prefix => New_Reference_To (Temp, Loc)),
Typ => Root_Type (Etype (Exp)), Typ => Root_Type (Etype (Exp)),
Constructor_Ref => Exp)); Constructor_Ref => Exp));
end; end;
Rewrite (N, New_Reference_To (Temp, Loc)); Rewrite (N, New_Reference_To (Temp, Loc));
Analyze_And_Resolve (N, PtrT); Analyze_And_Resolve (N, PtrT);
return; return;
end if; end if;
......
...@@ -2122,7 +2122,7 @@ begin ...@@ -2122,7 +2122,7 @@ begin
Dir_Index : Integer := 0; Dir_Index : Integer := 0;
Last : constant Integer := Last_Switches.Last; Last : constant Integer := Last_Switches.Last;
Lang : constant Language_Ptr := Lang : constant Language_Ptr :=
Get_Language_From_Name (Project, "ada"); Get_Language_From_Name (Project, "ada");
begin begin
for Index in 1 .. Last loop for Index in 1 .. Last loop
......
...@@ -8164,13 +8164,13 @@ package body Make is ...@@ -8164,13 +8164,13 @@ package body Make is
and then Lang /= null and then Lang /= null
then then
declare declare
Naming : Lang_Naming_Data renames Lang.Config.Naming_Data; Naming : Lang_Naming_Data renames Lang.Config.Naming_Data;
Name : String (1 .. Source_File_Name'Length + 3); Name : String (1 .. Source_File_Name'Length + 3);
Last : Positive := Source_File_Name'Length; Last : Positive := Source_File_Name'Length;
Spec_Suffix : constant String := Spec_Suffix : constant String :=
Get_Name_String (Naming.Spec_Suffix); Get_Name_String (Naming.Spec_Suffix);
Body_Suffix : constant String := Body_Suffix : constant String :=
Get_Name_String (Naming.Body_Suffix); Get_Name_String (Naming.Body_Suffix);
Truncated : Boolean := False; Truncated : Boolean := False;
begin begin
......
...@@ -587,7 +587,7 @@ package Prj is ...@@ -587,7 +587,7 @@ package Prj is
Mapping_Spec_Suffix => No_File, Mapping_Spec_Suffix => No_File,
Mapping_Body_Suffix => No_File, Mapping_Body_Suffix => No_File,
Config_File_Switches => No_Name_List, Config_File_Switches => No_Name_List,
Dependency_Kind => Makefile, Dependency_Kind => None,
Dependency_Option => No_Name_List, Dependency_Option => No_Name_List,
Compute_Dependency => No_Name_List, Compute_Dependency => No_Name_List,
Include_Option => No_Name_List, Include_Option => No_Name_List,
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment