[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

diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog
index 33de5516cec7efa589ce499c27e800b57d62a7e7..5e09f44ef2781d5da52f344a3139a78327be9a6d 100644 (file)
--- a/gcc/ada/ChangeLog
+++ b/gcc/ada/ChangeLog
@@ -1,3 +1,16 @@
+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

diff --git a/gcc/ada/adaint.c b/gcc/ada/adaint.c
index 59d615bfc3be291e3add532fe4a4a2e2ab275afa..56e64778f203f8c18b23a4aad915182f20cf0288 100644 (file)
--- a/gcc/ada/adaint.c
+++ b/gcc/ada/adaint.c
@@ -3312,6 +3312,7 @@ _flush_cache()
       && ! (defined (linux) && defined (__ia64__)) \
       && ! (defined (linux) && defined (powerpc)) \
       && ! defined (__FreeBSD__) \
+      && ! defined (__Lynx__) \
       && ! defined (__hpux__) \
       && ! defined (__APPLE__) \
       && ! defined (_AIX) \

diff --git a/gcc/ada/exp_ch4.adb b/gcc/ada/exp_ch4.adb
index a4a6bc3d84bb817ef6fd825c55c6157cc4cf53fe..66e9ed6351d30fcf5abbf226d81fd51aebe7acdb 100644 (file)
--- a/gcc/ada/exp_ch4.adb
+++ b/gcc/ada/exp_ch4.adb
@@ -599,27 +599,28 @@ package body Exp_Ch4 is
 
             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
-               P : Node_Id := Parent (Node);
+               P : Node_Id;
 
             begin
+               P := Parent (Node);
                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);
-
             return;
          end if;
 

diff --git a/gcc/ada/gnatcmd.adb b/gcc/ada/gnatcmd.adb
index 86f534da594d855ff781d0f19c0eec5d4b77516a..68ed4c77718f4bb57ab15f74df14e07c18eb4e5a 100644 (file)
--- a/gcc/ada/gnatcmd.adb
+++ b/gcc/ada/gnatcmd.adb
@@ -2122,7 +2122,7 @@ begin
                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

diff --git a/gcc/ada/make.adb b/gcc/ada/make.adb
index 8d7e6de374ad484f9f7508af2a17ef6626cefd5c..5c689bda5cfe4fffae4d94aa333de833271aa3a6 100644 (file)
--- a/gcc/ada/make.adb
+++ b/gcc/ada/make.adb
@@ -8164,13 +8164,13 @@ package body Make is
         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 :=
-              Get_Name_String (Naming.Spec_Suffix);
+                            Get_Name_String (Naming.Spec_Suffix);
             Body_Suffix : constant String :=
-              Get_Name_String (Naming.Body_Suffix);
+                            Get_Name_String (Naming.Body_Suffix);
             Truncated   : Boolean := False;
 
          begin

diff --git a/gcc/ada/prj.ads b/gcc/ada/prj.ads
index 22280252ec50b909e426b7a33a56894b3b33bc8c..ad2a48543e63873132c060dc91028829a5ec6f26 100644 (file)
--- a/gcc/ada/prj.ads
+++ b/gcc/ada/prj.ads
@@ -587,7 +587,7 @@ package Prj is
                            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,