2009-07-23 Robert Dewar <dewar@adacore.com>

	* scos.ads: Minor reformatting.

2009-07-23  Pascal Obry  <obry@adacore.com>

	* prj-nmsc.adb: Fix spec/body naming extension on case insensitive
	systems.

git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@150006 138bc75d-0d04-0410-961f-82ee72b054a4

diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog
index 7d6fa16..eddc144 100644 (file)
--- a/gcc/ada/ChangeLog
+++ b/gcc/ada/ChangeLog
@@ -1,3 +1,36 @@
+2009-07-23  Gary Dismukes  <dismukes@adacore.com>
+
+       * sem_aggr.adb (Resolve_Extension_Aggregate): Report an error when the
+       ancestor part is a call to a limited function with an unconstrained
+       result subtype unless the aggregate has a null extension type.
+       * sem_ch3.adb (Is_Null_Extension): Use the base type when retrieving
+       the parent type declaration to avoid blowups on subtype cases.
+
+2009-07-23  Robert Dewar  <dewar@adacore.com>
+
+       * par-ch4.adb (P_Aggregate_Or_Paren_Expr): Better message for missing
+       comma.
+
+       * sem_util.adb (Wrong_Type): Special message for cases like A and B = 0
+
+       * s-regexp.adb: Minor reformatting
+       * scos.ads: Minor reformatting.
+
+2009-07-23  Arnaud Charlet  <charlet@adacore.com>
+
+       * freeze.adb (Set_Small_Size): Remove extra space for consistency with
+       other similar messages.
+       * sem_prag.adb (Freeze_Record_Type, Freeze_Entity): Disable error
+       messages/implicit packing in CodePeer mode.
+       (Analyze_Pragma [case pragma Pack]): Ignore pragma in CodePeer mode.
+       * errout.adb (Special_Msg_Delete): Suppress 'size too small' message in
+       CodePeer mode.
+
+2009-07-23  Pascal Obry  <obry@adacore.com>
+
+       * prj-nmsc.adb: Fix spec/body naming extension on case insensitive
+       systems.
+
 2009-07-23  Robert Dewar  <dewar@adacore.com>
 
        * einfo.ads, g-ssvety.ads, s-regexp.adb, g-sse.ads: Update comment.

diff --git a/gcc/ada/prj-nmsc.adb b/gcc/ada/prj-nmsc.adb
index 72bf84b..df29bb5 100644 (file)
--- a/gcc/ada/prj-nmsc.adb
+++ b/gcc/ada/prj-nmsc.adb
@@ -105,7 +105,7 @@ package body Prj.Nmsc is
       Key        => File_Name_Type,
       Hash       => Hash,
       Equal      => "=");
-   --  A hash table to store the base names of excluded files, if any.
+   --  A hash table to store the base names of excluded files, if any
 
    package Object_File_Names_Htable is new GNAT.Dynamic_HTables.Simple_HTable
      (Header_Num => Header_Num,
@@ -163,7 +163,7 @@ package body Prj.Nmsc is
    procedure Check
      (Project     : Project_Id;
       Data        : in out Tree_Processing_Data);
-   --  Process the naming scheme for a single project.
+   --  Process the naming scheme for a single project
 
    procedure Initialize
      (Data    : in out Project_Processing_Data;
@@ -232,10 +232,10 @@ package body Prj.Nmsc is
    --  Check that a name is a valid Ada unit name
 
    procedure Check_Package_Naming
-     (Project        : Project_Id;
-      Data           : in out Tree_Processing_Data;
-      Bodies         : out Array_Element_Id;
-      Specs          : out Array_Element_Id);
+     (Project : Project_Id;
+      Data    : in out Tree_Processing_Data;
+      Bodies  : out Array_Element_Id;
+      Specs   : out Array_Element_Id);
    --  Check the naming scheme part of Data, and initialize the naming scheme
    --  data in the config of the various languages. This also returns the
    --  naming scheme exceptions for unit-based languages (Bodies and Specs are
@@ -272,8 +272,8 @@ package body Prj.Nmsc is
    --  languages indicated in attribute Languages, if any.
 
    procedure Check_Stand_Alone_Library
-     (Project     : Project_Id;
-      Data        : in out Tree_Processing_Data);
+     (Project : Project_Id;
+      Data    : in out Tree_Processing_Data);
    --  Check if project Project in project tree Data.Tree is a Stand-Alone
    --  Library project, and modify its data Data accordingly if it is one.
 
@@ -494,9 +494,12 @@ package body Prj.Nmsc is
       end if;
 
       declare
-         Suf : constant String := Get_Name_String (Suffix);
+         Suf : String := Get_Name_String (Suffix);
 
       begin
+         --  On non case-sensitive systems, use proper suffix casing
+         Canonical_Case_File_Name (Suf);
+
          --  The file name must end with the suffix (which is not an extension)
          --  For instance a suffix "configure.in" must match a file with the
          --  same name. To avoid dummy cases, though, a suffix starting with
@@ -2562,10 +2565,10 @@ package body Prj.Nmsc is
    --------------------------
 
    procedure Check_Package_Naming
-     (Project        : Project_Id;
-      Data           : in out Tree_Processing_Data;
-      Bodies         : out Array_Element_Id;
-      Specs          : out Array_Element_Id)
+     (Project : Project_Id;
+      Data    : in out Tree_Processing_Data;
+      Bodies  : out Array_Element_Id;
+      Specs   : out Array_Element_Id)
    is
       Naming_Id : constant Package_Id :=
                     Util.Value_Of
@@ -4055,8 +4058,8 @@ package body Prj.Nmsc is
    -------------------------------
 
    procedure Check_Stand_Alone_Library
-     (Project     : Project_Id;
-      Data        : in out Tree_Processing_Data)
+     (Project : Project_Id;
+      Data    : in out Tree_Processing_Data)
    is
       Lib_Interfaces      : constant Prj.Variable_Value :=
                               Prj.Util.Value_Of
@@ -6239,7 +6242,7 @@ package body Prj.Nmsc is
          Data            => Data,
          For_All_Sources => Sources.Default and then Source_List_File.Default);
 
-      --  Check if all exceptions have been found.
+      --  Check if all exceptions have been found
 
       declare
          Source : Source_Id;

diff --git a/gcc/ada/scos.ads b/gcc/ada/scos.ads
index 15c2053..c58545f 100644 (file)
--- a/gcc/ada/scos.ads
+++ b/gcc/ada/scos.ads
@@ -86,8 +86,10 @@ package SCOs is
    --        a Source_Reference pragma was encountered (since all line number
    --        references will be with respect to the original file).
 
-   --        Isn't the filename indication redundant, since we can look it up
-   --        from the D line???
+   --        Note: the filename is redundant in that it could be deduced from
+   --        the corresponding D line, but it is convenient at least for human
+   --        reading of the SCO information, and means that the SCO information
+   --        can stand on its own without needing other parts of the ALI file.
 
    --  Statements