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
+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>
* gcc-interface/decl.c (gnat_to_gnu_entity) <E_Array_Type>: Pass
2009-06-26 Eric Botcazou <ebotcazou@adacore.com>
* gcc-interface/decl.c (gnat_to_gnu_entity) <E_Array_Type>: Pass
&& ! (defined (linux) && defined (__ia64__)) \
&& ! (defined (linux) && defined (powerpc)) \
&& ! defined (__FreeBSD__) \
&& ! (defined (linux) && defined (__ia64__)) \
&& ! (defined (linux) && defined (powerpc)) \
&& ! defined (__FreeBSD__) \
+ && ! defined (__Lynx__) \
&& ! defined (__hpux__) \
&& ! defined (__APPLE__) \
&& ! defined (_AIX) \
&& ! defined (__hpux__) \
&& ! defined (__APPLE__) \
&& ! defined (_AIX) \
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
- P : Node_Id := Parent (Node);
while not Is_List_Member (P) loop
P := Parent (P);
end loop;
Insert_List_After_And_Analyze (P,
Build_Initialization_Call (Loc,
while not Is_List_Member (P) loop
P := Parent (P);
end loop;
Insert_List_After_And_Analyze (P,
Build_Initialization_Call (Loc,
- Id_Ref => Make_Explicit_Dereference (Loc,
- New_Reference_To (Temp, Loc)),
+ Id_Ref =>
+ Make_Explicit_Dereference (Loc,
+ Prefix => New_Reference_To (Temp, Loc)),
Typ => Root_Type (Etype (Exp)),
Constructor_Ref => Exp));
end;
Rewrite (N, New_Reference_To (Temp, Loc));
Analyze_And_Resolve (N, PtrT);
Typ => Root_Type (Etype (Exp)),
Constructor_Ref => Exp));
end;
Rewrite (N, New_Reference_To (Temp, Loc));
Analyze_And_Resolve (N, PtrT);
Dir_Index : Integer := 0;
Last : constant Integer := Last_Switches.Last;
Lang : constant Language_Ptr :=
Dir_Index : Integer := 0;
Last : constant Integer := Last_Switches.Last;
Lang : constant Language_Ptr :=
- Get_Language_From_Name (Project, "ada");
+ Get_Language_From_Name (Project, "ada");
begin
for Index in 1 .. Last loop
begin
for Index in 1 .. Last loop
and then Lang /= null
then
declare
and then Lang /= null
then
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);
Last : Positive := Source_File_Name'Length;
Spec_Suffix : constant String :=
Name : String (1 .. Source_File_Name'Length + 3);
Last : Positive := Source_File_Name'Length;
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;
begin
Truncated : Boolean := False;
begin
Mapping_Spec_Suffix => No_File,
Mapping_Body_Suffix => No_File,
Config_File_Switches => No_Name_List,
Mapping_Spec_Suffix => No_File,
Mapping_Body_Suffix => No_File,
Config_File_Switches => No_Name_List,
- Dependency_Kind => Makefile,
+ Dependency_Kind => None,
Dependency_Option => No_Name_List,
Compute_Dependency => No_Name_List,
Include_Option => No_Name_List,
Dependency_Option => No_Name_List,
Compute_Dependency => No_Name_List,
Include_Option => No_Name_List,